ae 


1915 HAE EQU «NUADLTQE*NULTQE ASSIGN/FREE FAILUTE TIME Q ELEMENT 
aT . MOP IOB EQ ATQE*NULTQE TERMINATION DUMP [0B 
nee NUBDPACE EQU  NUGDPIOB+NULENIO® TERMINATION DUMP ACE 
i821 NUASPACE EQU —NUADPACE+NULACE PERMANENT SWAP ACE 
1 WT 

1924 * 


1925 RRERKARAAARAKKRKKRARAARAAKAAAAARAAKAAKAKKAAARRAR RAK KAAAARAAK RARER AR AAARARA 


NUASPACE+NULACE FIXED NUCLEUS FREE AREA #1 


B01 
OPYRIGHT [6M CORP. 1978 TICENSED MATERIAL - PROPERTY OF IBN _ 
cae) Fo) Foe) aaaanaaA 
aaa saa anaaa =a aaaaaanaaaaa aAaRAAARAARA (03; 
aa aaa aaaaaa — aaaaaa aaaaaaaaaaaaaa aaaaaaaaaaRaaa 
PeEeEEE DERE REECE aaasena  daadaaa Fo a) aaaaa ~~ aaaaa 
aanaaaaasanasaaa anaaaaaaaaaaaaaa aaaa aaaa aaaa aaaa 04 


07 


BEEBE 
4 
t 
8 
EREREEEEE 
li 
etl 
ie 
EE 


S 
B 
E 


me 

Eos] ae ase = iia 

mR — = man —_ . mma 

Pe") aa = = a ---) 

Peer) = - am aaa 7 
ES = -_ a a 

ES _ aaa im c=) 

a aaa aaa Ee) = he 
Poe) —_ a) Bee ee | 


AOI 


et ae ee ae ee 


1970 PPSPRGIL EQU 
1971 PPSPRG2L_EQU 
1972 PPSUSRIL EQU 
PPSUSR2L EQU 


1977 PPSSGEDA EQU Pp 
1978 PPSSGCRT EQU  P 
PPSCRT1 EQU 
PPSCRT2_ EQU P 


#MSCPR 12/07/81 11:51 


1972 PPSUSRIL EQU  PPSPRG2L+2 USER] LIBRARY F1 @ SAVE AREA 
1973 PPSUSR2L EQU  PPSUSRIL*2 —- USER2 LIBRARY F1 @ SAVE AREA 
1974 SPACE 
1975 PPSLIBRA EQU = PPSUSR2L+*2 © CURRENT LIBRARY Fl @ SAVE AREA 


17 


SPACE 1 


1976 SPACE 18 EQU — RUPLRE( 
1977 _PPSSGED@ EQU  PPSLIBRA+3 —_SQURCE-GET END ADDRESS SPACE 1 
“RETURN CODES 


1978 PPSSGCRT EQU PPSSGEDa+3 © SOURCE-GET CURRENT ADDRESS 
1979 PPSCRT1 EQU PPSSGCRT-2  * FIRST BYTE OF CURRENT ADDRESS 
1980_PPSCRT2 EQU  PPSSGCRT * 2ND _3RD BYTES OF CURRENT ADDR 


RWPLSUCC EQU = X‘00'° 
RWPLNOSP EQU X'‘O1' 


B02 
VERSION 08/28/80 
LINE 
0001 MPL 
0002 «GEN; 


0003 MSCPR TITLE ‘#MSCPR 
0004 RRARKKAAAAAAAARAARAAREKS 
0005 * MODULE NANE = SMSCF 
DESCRIPTIVE NAME = 
COPYR 
0010 */* COPYRIGHT= 5726-SS! 
0011 */* LICENSED 
0012 -*/* REFER TC 
0013 _*** END OF EXPANSION ** 
STATUS = RELEASE 08 


FUNCTION = 1. EXECU 
2. INITI 


NOTES = 
RESTRICTIONS = 
PATCH LABEL = NIP 

ODULE-TYPE = LOAD | 
PROCESSOR = SPL 
PODULE-SIZE = 204 

TRIBUTES = 


S 
“+ 


g§ 


ENTRY-POINT = fSCPR 


oS 


LINKAGE = CALLED 1 


| 8 518 888 


TWAT = 


aig § 318 8 213 § SSS 


* & ie we BER 8 


8 2 #@ 


ai *y 


ba, 


GET AT 
CHECK VALIDITY OF THIS WS ID. 
BUILD OFFLINE PRINTER TUB. 


: 
2034 RWPLSUCC EQU  X‘00' SUCCESSFUL PRINTER/WS/BOTH. 
2035 _RWPLNOSP EQU X‘O1' DEVICE NOT SUPPORTED. 


B03 


SPL/3 RSION 08/28/80 PAGE 1 = TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/ 


Ol] IF 00 LINE SOURCE Ol] IF DO LINE 
0001 rel 00010000 0056 * ~~ TABL 
0002 «GEN; 00020000 0057 * 
0003 MISCPR TITLE "#MSCPR ~ MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION’ 00030000 0 0058 */*.CHAN 
0004 RRAKRAARRARKKARAAAKARAKRARRAARAAAKRAARAAAAAARAKRARRRAARARAARAAAARAKAARAAAARARK 00040000 0059 ® aal4 
p ® 00050000 0060 * aa? 
* 00060000 03 0061 * 
DESCRIPTIVE NAME = MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION * 00070000 wet . MESS 
04 0064 RRARARAA! 
0010 _*/* COPYRIGHT= 5726~SS1 COPYRIGHT IBM CORP 1977, 1981 0065 
ool */* LICENSED MATERIAL - PROGRAM PROPERTY OF IBM 0066 RARARRRE: 
0012 */* REFER TO COPYRIGHT INSTRUCTIONS FORM NUNBER G120-2083.*/ 05 0067 * 
0013__**® END OF EXPANSION ** 0068 tARARARe: 
0069 * L700 
06 0070 * 
0071 * 
FUNCTION = 1. EXECUTE FILE REBUILD wor * 
2. INITIALIZE FOR REMOTE WORK STATIONS 07 0073 %-------- 
0074 * 0800 
0075 -* 
08 0076 * 
0022 * RESTRICTIONS = 0077 _* 
0023 * O78 *-------- 
0024 ® — PATCH LABEL = NIPATCH 09 0079 * 1000 
0025 * 0080 * 
0026 * “MODULE-TYPE = LOAD (0) MOOULE oor * 
0 0082 * 
0083_* 
we Cy 
1 0085 *------— 
008s * 
1 ® 90280000 aay ®t 
® 90290000 2 008s *-------- 
* 00300000 00g « 
0035 * * 00310000 i) 
0036 * = PURPOSE = CONTINUE PAIN STORAGE IPL * 90320000 oom * 
0037_* * 90330000 oo _* 
0038 * ~~ ~—sC LINKAGE = CALLED BY MAIN STORAGE IPL PHASE 3, “IPL * 00340000 DO: 
al 0039 * 00350000 1 0094 0 whtennnenn 
0040 oN * 
0041 508 
0042 ; oor mi 
0043 Ons xR? 
we 24 { 
fi 0100 ARR 
0101 aR 
I on} OF 
ow * 
0105 @ [ 
C1 a 
Sean 
om 
O10 ae 


2082 * GILL. BE SEEN IN DUMP AREA ONLY) 
2083 * 

2084 SCADPSVE EQU _SCASYS 3 DUMP SVC CLEFT HAND ADDRESS) 

2085 SCADKSVC EQU  SCADPSVC*S 3 TRANSIENT EXIT SVC CLEFT HAND) 
2086 SCADSSVC EQU SCASYS*5 .-—«SYSTEMN SVC AREA 

2087 * 

2088 SCARSIZE EQU  SCADSSVC+1 1 TAIN STORAGE SIZE” IN 2K BLOCKS 
2089 SCA'256K EQU X"80" | X80" = 256K MAIN STORAGE — IRI 
2090 SCAI28K EQU  X"40" "X40" = 128K MAIN. STORAGE 


B04 


SCAMO65! EQU 
SCAN130M EQU 
SCAIN95M EQU 


5 DATE 81/12/08 SPL/3 VERSION 08/28/80 PAGE 2 TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/80 
Ol} IF 00 LINE SOURCE Ol] IF 00 LINE 
0056 * TABLES = *® 00520000 0111 ONE EQU 
0057 * ® 00530000 0112 TW EQU 
0 0058 */®.CHANGE ACTIVITY - @SCPR *® 00540000 0 0113 THREE  EQU 
0059 * ami45 NCR - P10402 Ics aan45 * 00550000 0114 FOUR —-EQU 
0060 * ~ aa478 INCR - P10807 X.21 FEATURE 3478 * 00555000 0115 FIVE EU 
0 0061 * * 00560000 0 0116 SIX QU 
0062 _* _NESSAGES-INITIATED = *® 00570000 0117 SEVEN equ 
0063 * ® 00580000 0118 EIGHT EW 
0064 AAARAAARARAARAARAARRARRARAAARARAAAARARARARRARARAAARAARARAAREARRRARARRRR OEONOND 0119 NINE €QU 
0065 EJECT 00600000 o120_* 
RAKRARARARRARARAKARAARARAARARARRRARRR 0121 TRUE equ 
0122 FALSE  &QU 
0123 UNCOND £4 
ois * 
0125 MOOP) EU 
0126 MBIT £0 
O12? MEBITS EW 
0128 ZOMEBITS EqU 
0129 MBIT £4 
O1N if 0 eq 
0131 SIT; «=e 
0132_ BIT? EW 
0079 * 1000 VARIABLE NUCLEUS = 90740000 0134 BITe) eU CC 
0080 * ® 00750000 0135 (SITS cu 
0081 * * 00760000 6 
0082 * = 00770000 0 0137-«8IT? ew 
0083_* * on780000 o138_* 
0064 * = ooreonon 7 ia aT 
0085 *-——-—---__--------_---_______________________-_______—_-» ppagooan 1 010 02 cc 
0086 * ASSIGN/FREE = ops19000 on of aw 
0067 * * GOR2H00N nia? Pay Pray [ 
088 *--——---________________________________________-*_ qggjgenn D nds ow ORC 
0039 * USER AREA * ooseno00 Ce Oe 
0090 * RSSOONL is to Bon 
oy = ooneon0D om * wrap 
oo92_* = oos7o000 oi? “iat 
0093 * = oueen 5 p18 METER LU 
0095 * oq GENERAL EQUATES ooe000 Lssessnmnnsnd i. 
0096 * Wi a: 
0097 XRI mw 1 REGISTER OME ‘5 Os? woe ey 
0098 XR? ey 2 REGISTER TD 115) SENS 6m 
0099 PSk mu 4 PRGA! STATUS SEGISTER ‘os Fa 
0100 ARR ty $s AGDRESS REDALL REGISTER OS sr Cw 
o101 TAR ww TSTRALTION MOORES REGISTER 1S SONS fai 
o102 108 ae 1s POITER = _ 
0103 DIF ew 2 OF POUTER ore STR cw 
ot * | O19) SUBTS fae 
O15 © aw 8 ATEWELE CORE —_ 
0105 = mw 0 MTEWOLE ODE a Ol) SRDADR CD 
ow? a ew 2 LENG OF ADDRESSES e* : 
os * on) pas a 
0109 19 i ike 
one 1 Os ers Et 


2:1 


VALID DUMP - HAS BEEN ACCESSED 


Fi ERSION 08726760 PAGE 3 ‘TINE Oa:15 DATE 81/12/08 

Ol IF 00 LINE SOURCE 01 
oll ONE EU mR 
01 TWO FOU mn 

0 0113 THREE eau 3 non 02 
0114 rom 4 non 

® SE % 
0 0116 ah 03 


O117 SEVEN 


o118 Ela me 
0119. NINE equ ; 
0120_* 
012i ri0" TRUE CONDITIO 
0122 Hig ew x90" FALSE ONION CODE 
0123 UNCOND EQU  X'87' UNCONDITIONAL CONDITION CODE 
0124 
06 0125 NOOP = EU X80" NEVER BRANCH 06 
0126 NOBIT EQU x‘00' NO BITS MASK 
iz? MMBITS EQU X'OF” RIC BITS ONLY MASK 
07 0128 ZONEBITS EQU  X'FO' ZONE BITS ONLY MASK 07 
0129 ALLBIT QU X‘FF' ALL BITS MASK 
0130 BITO x60" MASK FOR BIT O- X....... 
08 MASK FOR BIT1- .X...... 08 


MASK FOR BIT 2 - 


09 MASK FOR BIT 4 - 0? 
MASK FOR BIT 5 -.....X.. 


ll x'04' OP2 TRANSLATED 11 
0141 OP1 equ. Xx‘02' OP1_ TRANSLATED 
0142 PRV FQ x‘00" TASK PRIVELEDGED 


1 0143 NPRV =EQU. X‘01' TASK NOT PRIVELEDGED 12 
0144 DSABL  EQU  x's0' DISPATCHING DISABLED 
0145 *** END OF EXPANSION ** 

1 014% * SFNOP 00910000 B 
0147 SPACE 
0148 * PARAMETER LIST FOR SYSTEM FIND 

14 0149 SPACE 14 
0151 SFNOOTYP EQU 0 LIBRARY TYPE 

15 0152 SFNOMLOS EQU  X'08' LOAD MODULE oe 
0153_ SFNONSBS EQU  X‘O4" SUBROUTINE 
0154 SFNOPSRC EQU  X"02" SOURCE MODULE 

16 0155 SFNOMPRC EQU  X‘01" PROCEDURE 16 
0156 SFNDONNS EQU = SFNDDTYP+S — 8 CHARACTER MEMBER NATE 


0157 SPACE 
0158 S$FNDDOPR EQU SFNDON"B+1 © OPERATION SWITCHES 


SKIP SEARCH OF USER LIBRARY. 
BUILD LOADER PAR LIST - 00 NOT 


19 0164 * SKIP SEARCH OF SYSTEM LIBRARY. 19 


SPL/ 
IF DO 


VERSION 08/28/80 


LINE 
0166 
0167 


SFNOMRF1 EQU 


0168 * 


0169 
0170 


SFNOMNQ EQU 


o171 * 


0172, 


0173 
0174 
0175 


SFNODFIA EQU 
SPAC 


RRRAAARARRRA 


SFNDDADR EQU 


0176 * 


0177 


SFNODNOS EQU 


0178 _* 


0179 
0180 
0181 
0182 
0183 


® 


SFNODLNK EQU 
SFNODNST EQU 
SFNODSCT EQU 
SFNODF1F EQU 


0184 * 


0185 
0186 
0187 
0188 
0189 
0190 


SFNODRLD EQU 
SPACE 


RRARRAKK IF l 
RARRARRR TN | 
RARRRAAK FIEL 


SFNODTNS EQU 
SFNODLDA EQU 


RRAAAKKK END 


SFNODAT3 EQU 
SFNODMRT EQU 
x 


SFNODREL EQU 
SFNODTOT EQU 


® 
cd 
x 
x 


SPACE 
SFNDDCOM EQU 
SFNOMSYR EQU 
SFNOMUSR EQU 
SFNOLEN EQU 
* END OF EXP 
*** END OF EXP 


5 DATE 81/12/08 


SCARCEGS EQU X08" 0a" = BUILD CONEIG: RECORDS 
SOWIE €QU_X‘02" __K'02" = PID MODEL INDICATOR 


2198 SCADMOO® EQU” SCADREL#+1—— 1 SYSTEM MODIFICATION L 
2199 * 
2200 SCADCNTR EQU SCADMOD™+1 = 1 COMMUNICATIONS TRACE INDICATORS 


IF DO LINE 

0221 

5; B 0222 

ONLY WITH REGULAR CALL. THE 0 0223 

START ADDR FIELD IS OVERLAID 0224 

OR DEQ CIBR DIR - 0225 

CALLER DOING ENQ AND DEQ. 03 0226 

FORMAT 1 ADDR OF GIVEN USER LIB ae 

0174 ®ARRARRRRREK FIND QUTPUT PARAMETER LIST *RRRRARRERRRRRRARARRRRRARRRRRAR 04 0229 
0175 SFNODADR EQU SFNODTYP+2 _DISK ADDRESS OF REQUESTED 0230 
o176 * CIBRARY MOOULE 0231 
0177 SFNODNOS EQU  SFNDDADR+1 — FOR TYPE O-NUMBER OF TEXT SEC 05 0232 
0178_-* FOR TYPE R-CATEGORY 0233 
O79 —* FOR TYPE 5 OR P-RECORD Size 0234 
0180 S$FNODLNK EQU  SFNDDNOS+2 —_LINK-EDIT ADDRESS 06 0235 
0181 SFNODNST EQU  SFNDONOS+2 NUMBER OF STATEMENTS FOR S OR P 0236 
SFNODSCT EQU SFNODLNK+2- ENTRY POINT OF MODULE 0237 

0183 SFNOOFIF EQU  SFNODLNK+2 LIB F1 ADDR OF FOUND MENBER 07 0238 
0184 * SET IF REQUESTED BY SFNOMRF1. 0239 
0185 SFNODRLD EQU  SFNODSCT+1 | DISP OF RLOS IN LAST TEXT SEC 0240 
0196 SPACE 08 0241 
0187 _*RNRARRR IF LOADER-YES IS SPECIFIED, THE TOTAL NUMBER OF SECTORS ***** 0242 
0188 “**RRRARR TW THE LOAD MODULE IS PLACED AFTER SFNDDRLD AND NO NORE ®*ARR 0243 
0189 RRRRRARR FIELDS ARE MOVED FROM THE DIRECTORY ENTRY. RARER 09 0244 
0190__SFNDDTNS EQU  SFNDDRLD+1 TOTAL NO. SECTORS IN MODULE 0245 
0191 SFNODLDA EQU ~ SFNDOTNS*2 LOAD ADDRESS - SET BY CALLER 0246 
0192 **RRNRRR END OF LOADER PARM LIST RARER 10 0247 
0193 SPACE 0248 
0194 RRRARRRR REMAINDER OF OUTPUT PARAMETER FOR A REGULAR CALL ***exRxKR 0249 
0195 SFNDDCRS EQU $FNDDRLD+] © SIZE OF PROGRAM CIN SECTORS) 11 0250 
0196 S$FNODATT EQU S$FNDOCRS+3 3 ATTRIBUTE BYTES OF EMBER 0251 
0197 SFNODAT! EQU = SFNDOATT-2 FIRST ATTRIBUTE BYTE 0252 
0198 SFNDDAT2 EQU SFNDDATT-1 SECOND ATTRIBUTE BYTE 12 0253 
0199 _SFNDDAT3 EQU — SFNDDATT THIRD ATTRIBUTE BYTE 0254 
0200 SFNDOPRT EQU “SFNDOATT*1 FOR TYPE 0 - MRTMAX COUNT 0255 
0201 * FOR TYPE P - X"FF* => MRT PROC 13 0256 
0202 SFNODREL EQU SFNDOMRT+1 — RELEASE LEVEL OF MODULE 0257 
0203 SFNOOTOT EQU  SFNDDREL+2 TOTAL SIZE OF NODULECIN SEC) 0258 
0204 * MUST BE ZERO BEFORE CALL, IF 1 0259 
0205 * ZERO ON RETURN => NOT FOUND. 0260 
0206 * FOR A LOADER REQUEST CONTROL 0261 
0207 * IS NOT RETURNED ON A NO FIND. 1 0262 
0208 SPACE 9263 
0209 SFNDDCOM EQU  SFNDOTOT+1 — RESULTS OF FIND 0264 
0210 SFNDNSYR EQU  X‘80" FOUND IN SYSTEM LIBRARY 16 0265 
0211 SFNDMUSR EQU  X‘40" 0266 
0267 

END OF EXPANSION OF S=NDP / 0268 


0214 *** END OF EXPANSION ** 


SPL/3 VERSION 08/28/80 


* PARNS * TYPE 
ARAARRKAARRRARKK A 
® 


ACECHAIN EQU 
ACEIAR EQ 

ACEMAB EQU 
ACEPARMI EQU 
ACEPARN2 EQU 
ACEPARNS EQU 
ACETYPE EQU 
ACEMSCL =EQU 
ACECSCL EQU 
ACEPRIV EQU 
ACETOCHN EQU 
ACELOG §=EQU 
ACECPERR EQU 
ACEMMAIT EQU 
ACEINUSE EQU 
* NOTE: THE FOL 
ACEXLOFF EQU 
ACEQUIES EQU 
ACEMASK EQU 
ACEXR1 = EQU 
ACEXR2 = EQU 
ACETCBa EQU 
ACELEN §=EQU 
*** END OF EXPAN! 
i CPURK 

® DATE LAST CI 


RAKRAARAARARARARI 


ssh astes olacisc le ee alee cleat Je 


® 
R COMA 
3 
RARKRAARRAARARRAY 
RARKARARAARAKRARAAS 


SS OF SPOOL PRIMARY FILE = IRB} 
THIS FIELD VILL 


23909 * 
2310 SCAMANEN E 


ee 


0264 * 3. THE TOTAL WORKAREA CAN BE USED AS LONG AS ANY INPUT THAT 0319 WOUNF 
0265 * REQUIRES LOGGING HAS BEEN LOGGED (@CMCU CALLED) AND THE STATIC 0320 WOPRT 
0266 * — PORTION OF THE WORKAREA IS SAVED AND RESTORED 0321 WORDSN 

0322 WOWTER 


0267 * 
0268 0323 WOSAVE 


* 


B07 
of: Tae x T PeTON 00/9878 SALE , Ee a r SPL/: FERSION 08/28/80 
me 1] TF 00 LINE IF 00 LINE 
0221 * PARNS * TYPE * xR 0276 RRARRARRRRS 
0222 RARKAR AURAAARAARARRARANRRARRRRAR RARRAAARARARARRARRRRRRARRRANR 027 Sf 
0223 * x 0278 * Ma 
0224 ACECHAIN EQU 1 0279 SI 
0225 ACEIAR EQ f CALLER 0280 * 
0226 ACEMAB «EQU  ACEIAR+2 MAB ADDRESS (CONTROL STORAGE ACE) 0281 * 
0227 _ACEPARM " FIRST IN-LINE ‘ SI 
0229 ACEPARN3 EQU ACEPARM2+1 = THIRD IN-LINE PARM 1 0284 SF 
0230 ACETYPE EQU _ACEPARM3+1 PE OF ACE (CTRL OR MAIN STORAGE) 0285 _WORTC _ EC 
0 ACEMS( Q O' I ; OR DRAGE ACE 0286 SF 
0232 ACECSCL EQU INDICATOR FOR CONTROL S$ ACE 0287 WOROK = EC 
0233 ACEPRIV_ EQ INDICATOR FOR PRIVILIGED ACE 0288 WORACC _ EC 
0289 WORSTP EC 
0235 ACELOG §£QU INDICATOR FOR SYSLOG CALLED 0290 WORSTD EC 
0236 ACECPERR EQU INDICATOR FOR ASYNC ERROR ACE. 0291 WORAQO EQ 
0237 ACEMWAIT EQU X'08' MULTIPLE WAIT INDICATOR 0292 WORACR EC 
0238 ACEINUSE EQU x'‘08' WS ACE IN USE. 0293 WORKBD £Q 
0239 _* NOTE: THE FOLLOWING EQUATE MUST BE THE SAME AS QXLOFF IN SVEQU 0294 WORAFW EQ 
0240 ACEXLOFF EQU K‘04" TNOICATOR FOR 108 TS IN REAL STORAGE 0295 WORNAV EQ 
0241 ACEQUIES EQU xX'‘Ol' INCREMENT QUIESCE COUNTER VALUE G} 0296 WORREL  &Q 
0242 ACEMASK EQU  X‘FE' MASK TO TURN OFF ALL EXCEPT QUIESCE 0297 WORAFS £Q 
0243 ACEXR1 = EQU ACETYPE+2 CALLERS XR1 VALUE 0298 WORIRJ EQ 
0244 ACEXR2 EQU ACEXR1+2 CALLERS XR2 VALUE 0299 WORAFN EQ 
0245 ACETCBA EQU ACEXR2+2 TCB ADDRESS 0300 WOROFL —€Q 
0246 ACELEN EQU ACETCBa+i LENGTH OF ACE 0301 WORSPF EQ 
0247 *** END OF EXPANSION ** _ 0302 WOPOGE £9 
0248 * CPURK 00930000 0303 WORPUN EQ 
0249 * = DATE LAST CHANGED ~ 02/12/81 K.S.EIKENHORST DEPT47E * 0304 WORPAL £Q 
0250 ®RRRARARAARARRARARARRAARARAARARRARRERAARAERERARARAARARRARARERARRARRRRR 0305 WORGRF £0 
0251 ~* ® 0306 WORGI  £&@ 
0252 * COMMAND PROCESSOR WORKAREA ® 0307 WORGU EQ 
0253 -* ® 0308 WORSCJ £Q 
0254 RRRERAARRARRARAARARARRARARRRRERRARRARARARARAERARARARARARARARAAERARRRRR 0309 WORPE EQ 
0255 RARARRARAARRAAARAAARARARARRRARARARRRRARRRERRERRERARRRRARRARRRARRARRARRR 0310 WORPEP &Q 
0256 * R 0311 SP 
0257_* 1. THE COMMAND PROCESSOR WORKAREA IS A NUCLEUS RESIDENT * 0312 WOPM EQ 
0258 *  WORKAREA (256 BYTES) WHICH CAN ONLY BE USED BY CP XIENTS. 7 0313 x 
4 0259 * * 4 0314 WOSYS  &Q 
0260 _* 2. THE WORKAREA CAN BE USED IN ANY MANNER DESIRED BY THE COMMAND = * 0315 WOVR £Q 
0261 * — PROCESSOR XIENTS. USE OF THE UORKAREA SHOULD FOLLOW RECOMMENDED * 0316 WOFMHD EQ 
0262 * AND EXPECTED USE (SEE BELOW) WHERE POSSIBLE. ® 0317 WOROL &Q 
0263 * ® 0318 WPTH £ 
iz 
EQ 
§Q 
ea 
§@ 
£a 
£q 
€@ 
SPI 
&@ 
SPI 


* ABD INTERFACE U'TH UDRKSTN DATA MANAGEPERT. * 0330 


1+ Tt DISKETTE, ATO-NO 
X'40' = 2 SIDED - MEM RECORDING 


€ 02:1 DATE 61/12/08 VERSION 08/28/ 
LINE 
0331 WoseT 
0332 WOPUT 
WSPL WSOM PARAMETER LIST EQUATES 02 0333 WOPTG 
SPACE 2 0334_WONDN 
0335 WIV 
0 PARAMETER LIST EQUATES FOR 0 0336 WOPNW 
SYSTEM REQUESTS TO WORK STATION DATA MANAGEMENT 0337_ WPT! 
0338 WOACI 
SPACE 2 0 0339 WOACQ 
orl EXTERNAL RETURN CODE 0340_ WSACQ 
0341 WOREL 
0342 WOGTA 
0343 WOEGTI 
0344 WORDS 
0345 ~WOSTI 
0346_WOSTP 
0347 VOSPG 
0348 WOSPN 
0349 _WOSPI 
6 0350 WORES 
RELEASE OF SAT T REQUESTOR-REJECT 08 0351 WORTG 
meant FAILED-SECURITY 0352_WORTI 
0353 WERS 
pill FATLED-NON-WATTABLE 09 0354 WOETG 
WORK STATION OFFLINE 0355 WTI 
0356 WOCLR 
1 X45" INVALID GALJI DURING PRINT OP. 10 0357 WEVK 
X'46' PRINT T_ISSUED FROM_UMLOCKED KBD. 0358 _WOEVE 
0359 WEVI 
11 X'50' 2 OPT TAKEN ON GJI RAM FULL COND 11 0360 WEVG 
x'51' 2 OPT TAKEN ON INVALID GJI CODE 0361 _WOPEC 
ame 0362 WOPEF 
1 0363 WOFMH 
| 0364 WOFPHI 
0310 WRPEP EQU  X'84" PERM. 1/0 ERROR ON PUT-NO-WAIT 0365 WOFNHG 
1 0311 SPACE 2 1 0366 WDPEX 
0312 WOOP = EQU = WORTC+1 EXTERNAL OP-CODE MODIFIER 0367 WRCDI 
0313 SPACE 2 0368 WORCDG 
14 0314 WOSYS EQU X‘s0' SYSTEM REQUEST 1 0369 WFAIL 
0315 WOVR EQ X‘40’ OVERRIDE REQUEST 0370 _WONGRP 
0316 WFFHD =EQU X40" FUNCTION NANAGETENT HEADER 0371 WONGRPI 
1 0317 WOROL &QU X'20° ROLL REQUEST 19 0372 WONGRPG 
0318 WORTH QU x'20° PASS THRU MODIFIER 0373 WOCAML 
0319 WUNF ==EQU«X"10° UNFORPATTED REQUEST 0374 WOCANLI 
1 0320 WPRT EQU xX*‘08' PRINT REQUEST 16 0375 WOCAMLG 
0321 WOROSN QU X'‘08' READ SCREEN MODIFIER 0376 WONEOS 
0322 UOMTER EQU  X‘0S" RITE ERROR OPERATION 0377 WONEOJ 
7 0323 WOSAVE EQU X‘04" SAVE REQUEST 17 0378 WOAEOS 


0324 WROD EQ X‘Os" READ MODIFIED IMMEDIATE 


war 


0348 WOSPN ew WwstloeNs 
WOST 1 WOPUT: 


EQU = WOERS*WDGET 
WOERSHADINV 
Eq X"80° 
EQ X"80° 
0356 WEVE EQU X‘88' 


0365 aii x‘13° 
0366 rex equ X‘1A" 
0367 WRCDI Eq xX'45' 
0368 WORCDG EQU  x‘41° 
0369 WAIL EQ X'32° 
0370 WONGRP QU X'20° 
0371 WONGRPI QU X‘25° 
0372 WONGRPG EQU X‘21' 
0373 WOCAM = EQ X‘10° 
0374 WCAMI €QU X‘15° 
0375 WOCANLG EQU xX‘lI' 
0376 WNEOS EQ X'EO° 


sir ww IE tT 
DWITE, PUT THEN IWITE 


ERASE THEN GET DATA 
ERASE THEN INVITE INPUT 
CLEAR THE SCREEN 

EVOKE 

EVOKE END OF TRANSACTION 


PFA GET 

PUT END OF TRANSACTION 
REQ. CHANGE DIR. INVITE 
REQ. CHANGE DIR. GET 
PUT FAIL RESPONSE 
NEGATIVE RESPONSE 
NEGATIVE RESPONSE INVITE 
NEGATIVE RESPONSE GET 
CANCEL 

CANCEL INVITE 

CAMEL GET 
NORMAL END OF STEP 


q 


Ol} IF 00 LINE 
0386 


02) 0388 WAID QU 


Z 


3? 
age 


3 
é 
igeguee 


05) 0397 \WOSRO3 


=] 
83 
B12 22 


08 0406 WORCL 


g 
Bags 


10 0412 WIND &W 


11 0415 **** END OF EXPA 


1 042] **RARARRARARRARR 
0422 SPACE 
0423 CPARTV EQU 0 
1 0424 


| 


| Want 
egeeeeecdeas 


OQ 


1G 


2:15 


DATE 81/12/06 


. WESEREO ; 
TERMINAL UNIT BLOCK CHAIN LOCKED 
RESERVED 


. 


2419 SCADSNAT EQU SCADCSP3*2 2“ TCR ADDRESS OF SNA TASK 
2420_* 


VERSION 08/20/80 we § ME 02: Dy 81/12/08 


; a 
oi| 1F 00 LIne SOURCE Ol} IF 00 
0386 _W } 


START LINE NUMBER FOR ROLL 
END LINE NUMBER FOR ROLL 


O41] WV EQU WELNE*1 PRIABLE START LINE MUMBER 

10 0412 WOINDR QU WOVSLNe2 ADDRESS OF OVERRIDE INDICATORS 10 
0413 WOFMTN EQU  WINDae2 FORMAT INDEX ENTRY ADDRESS 
0414 EQU WFATNCT R LIST LENG 

11 0415 **®* END OF EXPANSION ** a 
0416 CPWSOM ew CPURK*WDLEN-1 WSOM PARAMETER LIST AREA 
OT 

1 0418 RARRARRRRERARARRRARRA MESCACE RETRIEVE PARAMETER LIST ***2*eennannaannn 1 
0419 _* RECOMMENDED * THIS PART OF THE WORKAREA IS USED TO INTERFACE 


0420 * USE = ® ~WITH THE MESSAGE RETRIEVE FUNCTION. ® 


* THIS PART OF THE WORKAREA CONTAINS A TABLE OF 
* OPERAND ADDRESSES USED BY ALL COMMAND XIENTS. 


16 0430 CPOPLN] EQU CPUSONEL OPERAND 1 LENGTH-1 16 


OPERAND 2 RIGHT-HAND ADDRESS 
OPERAND 3 LENGTH-1 


ee ee " 


Alo 


ae 


STATEND_EQU 
SENIPL «EQ 

STRTPRT EQU 
AUTOSTAT EQU 
STOPDONE EQU 
ERROFF  EQU 
R 0 


ERRCNCL QU 
ERRRESN EQU 
TIMESTAT EQU 
INQOPT1 EQU 
SETOUMP EQU 


i 
BESSSSBRe S88 


a ee ace 
SOLC PRIMARY TASK USE 


<n 


f 


HLETE. OV ite 
HISTORY-REFONTAT OVERFLOW FILE 


ag 


Rae 


0455 CNCLING 


R TLD REQUEST 
- 1/0 ERROR 
«1/0 ERROR INQUIRY RESUME REQUEST 


0477 

0478 CLRAENU EQU X'‘22" . END THE MENU, BUT NO 1/0 

0479 =IDELETE EQU  X'23' - TDELETE COMMAND CODE 

0480 OFFOCL EQ X'24° . OFF OCL STATEMENT 

0481 CPIQCALL EQU X'25° ~ CPIQ CALL 

0482 CPONCALL EQU X'26° - CPON CALL 

TCALL EQU. X‘27" - CCI CALL 

Ew X'28" - CALL TO AUTOPATICALLY STOP JOB,ALL 


saga 


; 
Z 


338888538 
4 
ag 


===> DBO STORAGE 
===) (DB 1_ STORAGE ADDRESS 


RAKAAARARRARAK 
RECOMMENDED | 
® USE | 
n ' 
7 + st r I q bl i f 1 
0501 * ® WITH THE COMMAND PROCESSOR CLEANUP XI s REARERE REARS 
0502 RAARARARAARARRAAAARARARRARAAARARARRARRAAAAAARARARRARAARAARARRAARRAARRAAR CPIOPARM EQ 
SPA CPIOCLR EQU 
0 0504 CPCMCU EQU CPCODE+1 CCU PARAMETER LIST AREA 04 0559 CPIOSAVE EQU 
0505 _ CNCUSWI CPCMCU SWITCH BYTE 0560 CPIOSIN EQU 
, 0561 =CPIORSTR EQU 
05} . O=NO OUTPUT TO BE DISPLAYED 05) 0562 * 
«_J20UTPUT PROMPT TO BE DISPLAYED 0563_* 
TUT THEORMATION & : 06a 
0565 * 
0566 CPIOINV EQU 
0567 CPIOSINV EQU 
0568 CPIOPTNI EQU 
0569 CPIOPUT EQU 
5 0570 CPIO EQU 
+ 12SHOW ME SYSTEM CON ALSO 0571 * 
0517 CMCUIRL EQU  X‘04' 0200 NOT INCLUDE INPUT LINE IN ROLL 0572 * 
0518 * » L=INCLUDE INPUT LINE IN ROLL 0573 —-* 
09 0519 CMCUMSUB EQU = X'02' « O=NO MSG SUBSTITUTION 09 0574 * 
0520 * «_1=M56 SUBSTITUTION TO BE PERFORMED 0575 * 
0521 CMCUBOC EQU  X‘Ol' . O=THIS IS NOT A BROADCAST 0576 * 
10 0522 * + 1STHIS IS A MSG BROADCAST 10 0577 -* 
0523 0578 * 
0524 CACUMIC EQU  CMCUSWI+2 MIC NUMBER TO BE LOGGED/DISPLAYED 0579 SPACE 
11 0525 CMCUSW2 EQU CMCUNIC+1 SWITCH BYTE 2 bl 0580 RRARRARAARRRAAD 
0526 CMCUNINV EQU X'80' . O=INVITE WORK SATAION 0581 * EXPECTED * 
0527 * - 1=D0 NOT INVITE WORK STATION 0582 * USE ‘ 
1 0528 CNCUNOIO EQU X‘40' . O=1SSUE WSDM OUTPUT 1 0583 *RRRARRARRRRRR:S 
0529 _—* ._1=00_NOT_ISSUE WS0M OUTPUT 0584 SPACE 
0530 CMCUCOND EQU X‘20° . 0=00 NOT ROUTE ONLY TO CONSOLE 0585 CPFIREL EQU 
0531 * - 1=ROUTE OUTPUT ONLY TO CONSOLE 3 0586 CPFIRER EQU 
0532_CMCUSTAT EQU _X"10' = O= IGNORE THIS BIT IF OFF 0587 SPACE 
0533 * ~ 1=1F CRCUINP IS ON THEN DO NOT 0588: - PANEER RENEE 
14 0534 * UPDATE STATUS, IF CMCUINP IS OFF 14 0589 * EXPECTED * 
0535 * THEN UPDATE STATUS 0590 * USE is 
0536 * . BITS 4 - 7 RESERVED 059] *RRRRRARRARRKRR 
, 0537 CMCUMLEN EQU = CNCUSWZ LENGTH OF OUTPUT TO #CPOC iy 0592 SPACE 
0538 = CNCUMGA =EQU  CRCUSW2+2 ADDRESS OF IN CORE MESSAGE TEXT 0593 CPWSDMIN EQU 
0539 * eens OR QUTPUT TO #CPOC 0594; SPACE 
16 0540 CMCUNSDS EQU CrCUSWZ+2 ADORESS OF MSG SUBSTITUTION DATA 16 0595 CPINPDTA EQU 
0541 CNCULEN EQU CACUMGS-CPCNCU+] LENGTH OF PARAM LIST 0596 CPINPOTE EQU 
0542 SPACE 0597 CPINPSTD EQ 
17 0543 RURRARARARARARAARARRA [TOW ARE A ALRARARKARARARAARARARARARAARARARRAARARARR, 17 0598 CPINPEND EQU 
0544 * RECOMMENDED * THIS PART OF THE WORKAREA CAN BE USED BY COMMAND ® 0599 CPSTATa@ EQU 
0545 * USE ” XIENTS IN ANYWAY DESIRED. ii 0600 SPACE 
1 0546 13 0601 **xxaxanaaanan 
0547 0602 * EXPECTED * 
0548 CPURKL «—QU «OCU START OF UDRK AREA 0603 * USE * 
19 0549 CPHRKR —QU CNCUMGe3? 09 FND OF UDPK APEA 19 0604 SASeReeeennnnets: 
0550 SPACE 0605 SPACE 
Al2 


| x.21 SMETCHED 
~ DISKETTE. HAS. WORSE 


* OF THE WORKAMEA, BEG! 


FOLLOWING [0 REQ a 
AARAARKRARRARRARAAARRAARAAARK 


STORE, THE LOWER 


REQUEST 
. I FOU 
CPIOPTNI EQU + PUT SCREEN WITH INVITE 
CPIOPUT QU «PUT SCREEN WITHOUT INVITE 
0570 NFOR 
0571 H CPIO CAN DISPLAY ANY OF THE 
0572 FOLLOWING DISPLAYS: 
057 COMMAND DISPLAY 
0574 CONSOLE DISPLAY 
0575 STANDBY DISPLAY 
0576 RT INQUIRY DISPLAY 
0577 MRT INQUIRY DISPLAY 
0578 
0579 
0580 RAARRARRARRRARARKRARR STATUS FIRE FIELD SAVEAREA ®2RRRARRARRAARARRRRRRR 
0581 * EXPECTED * THIS PART OF THE WORKAREA IS USED BY STATUS £ 
0582 * USE ® COMMAND TO GET THE FIRE CONTROL CHARACTER(S). ® 
0583 *ARAAAARAARARARAARAAAARAAARARAARARAARARARARARAARRARARARRARAARARAARARAAK, 
0584 SPACE : 
0585 CPFIREL EQU CPWRKR+l START OF FIRE FIELD SAVEAREA 
0586 CPFIRER EQU CPFIREL+2 END OF FIRE FIELD SAVEAREA 
0587 SPACE 
0588 *ARRRARRARRARRARRRARR ACCEPT INPUT BUFFER ****eaanannaannanannaanxannan 
0589 * EXPECTED * THIS PART OF THE WORKAREA IS USED TO ACCEPT * 
0590 * USE *® AND LOG INPUT FROM A WORKSTN C@CPRT AND SCICU). = 
059] *RAARRARANARARARRARARARARRARERERRARAAARARAARARARRRRERRAARARRARRRARERRAR 
0592 SPACE 
0593 CPWSDMIN EQU  CPFIRER#1 START OF INPUT AREA 
0594 =e SPACE - 
0595 CPINPDTA EQU CPWSONIN INPUT FIELD 1 START 
0596 CPINPDTE EQU CPINPOTA+119 INPUT FIELD 1 END 
0597 CPINPSTD EQU CPINPDTE*3 = INPUT FIELD 2 - STATUS COMPAND 
0598 CPINPEND EQU CPINPDTA+120 COMMAND DATA END + 1 
0599 CPSTATa EQU CPINPSTD STATUS QUEUE ELEMENT ADORESS 
0600 SPACE 
0601 ®RARRARRRRRERARRARERR STATIC PORTION OF CPURK **tteeansarnxnnnmnnaseen 


0602_* EXPECTED * THIS PART OF THE WORKAREA IS USED TO CONTAIN 


Ai3 


am 
‘ ae] NOS ree AT 
WHEN DUMPING MORE THAN 64K OF 

MAIN STORAGE. COPYRIGHT WILL BE 


B14 


- _ ; NTE aT ee : veRsTt 
i ait DATE 81/12/08 B/f : ; 
FDO LINE SOURCE LINE 


‘qu cparcae) 0663 

0609_*** END OF EXPANSION ** 0664 
0610 Ni 100940000 0665 
0611 **CONTROL STORAGE TRANSIENT NUMBERS * 0666 
0612 _* CHIGH BYTE OF 1D FIELD CONTAINS X00") 0667 
h a} RAN CALL BY SSN 0668 

MAIN STORAGE RLD PROCESSOR é 0669 

ABNORMAL TASK TERNINATION 

Pell 0671 

IN-LINE PARM 2 IS 0 FOR LOADER FUNC. 0672 

Il2 = 01 0673 

1: IN-LINE PAR cra 0674 


CXIOERP 


ALTERNATE SECTOR 0678 

W/S ERP XIENT 0679 
0625 CXTIXI £0 INTERVAL TIMER # 1 0680 
0626 CXTIX EQU 10 INTERVAL TIMER MASTER : 0681 
0627 CXNUTEID EQU 11 5211 PRINTER ERP XIENT 0682 
0628 CXNUBEID EQU iz 5256 PRINTER ERP XI 0683 
0629 CKXMCLID EQ 13 CTL PROCESSOR LOGGING XIENT 0684 
0630 C) fq 14 SET TRACE INDICATORS 0685_ 
0631 CXNUBLID EQU 15 DATA COMM BSCA LOGGING XIENT 0686 
0632 CXNUSLID EQU 16 DATA COMM SDLC LOGGING XIENT 0687 
0633 CXNUGLID EQU 17 1/0 ~~ ERROR COUNTER. LOGGING XIENT 0688 
0634 CXADINIT EQU 18 A/D INITIALIZE ROUTI 0689 


1/0 ERROR TRANSIENT 0694 
REMOTE W/S LOGGING XIENT 0695 
SET ADOR. COMP. REGISTERS XIENT j 0696 
SYSTEM MEASURE FACILITY XIENT 3. 0697 


CTRL STG MUCLELS 0709 
LEELA EERE ERIS e710 


0659 * NOTE: THE LABELING OF ITETS AS ‘CONSTANT’. OR “MON-CONSTANT IS = 074 
0560 * EXACT AND MEANINGFUL. THAT IS, ITEMS ISENTIFIED AS “CONSTANT" * ons 


DISPATCHER svc 
REPOTE reuren bu UP. 


foe CofA oF TD 
POST TASK BY 1D 


TRANSLATED ASSIGN/FREE 
RETURN TIME-OF-DAY IN TIMER UNITS 


B15 


SPL/3 VERSION 08/28/80 
Ol] IF 00. LINE 
0716 _* MAIN STORAGE SIZE A 


O717 RARRARRARARARRARRRRRK 


ITEMS. 1DENT IFeD as ‘NON-CONSTANT may BE MODIFIED BY CTRL 


0 0718 * THE FOLLOWING BIT I 
STG NUCLEUS FUNCTIONS OR 1/0 FUNCTIONS. 0719 OLPGFULL EQU X‘80' 
0720 * 
0! 0666 *® WOTE: THERE IS A ‘TRADE-OFF’ THAT CAN BE MADE AS TO WHERE TO PLACE : 0 ; 0721 = DIMSIZE EQU  DISMFa 
a * A FULL WORD CONSTANT THAT IS REFERENCED ONLY ONCE: o722_* 
% 0723 RRRRARRRARRRARRARRAR 
sas * 1 CONSTANT CAN BE PLACED IN DIRECT AREA AND REFERENCED * 04 0724 *® SYSTEM INDICATOR WO 
0670 * WITH A_'L' INST - THUS REQUIRING 2 CTRL STG WORDS TOTAL * 0725 _RARARRRRAARAARAARARRR 
0671 —* ® 0726 DIINOR] EQU  DIMSI2I 
05) 0672 * 2 CONSTANT CAN BE PLACED IN REG BY 2 IN-LINE ‘LI’ INSTS * 0) 0727 ~DICSIZE EQU  DIINOR 
0673 -* a nid THE LEFT AND RIGHT ile OF Le allel * 0728 * 
0674 = THUS REQUIRING ry 0729 RRRRARRKARRRRARRRARRR 
0675 * ® 06 0730 * SYSTEM INDICATOR WO 
0676 * THE STRATEGY FOLLOWED IS TO ALWAYS USE ALTERNATIVE 1 (UNTIL * 073]__ RARRRARRRRAARARARRARR: 
0677_—* DIRECT AREA IS EXCEEDED) SINCE THIS CONSIDERABLY SIMPLIFIES * 0732 OMPROTCT EQU X'80' 
07 0678 * THE PROCESS AND ERROR RISKS REQUIRED TO GET AN ADOR . 07 0733 -* 
0679 * CONSTANT SPLIT INTO A LEFT BYTE AND RIGHT BYTE FOR THE LI 0734 * 
0680 * INSTS. 0735 OMPINPRG EQU X'40' 
068] *AARAARARARAAAARRARAARARARAARARARARAAARARARAAAARARRARARARRARARARAARRAAR 03 0736 * 
0737_—* 
0603 AAARRAARA: RRRRARAARR ARERR 0738 DMPSUSAC EQU  X'20' 
0684 * 'NON-CONSTANT’ NUCLEUS TRANSIENT MEA psoneney Q9 0739 * 
0685 _* THESE EIGHT WORDS MUST START AT THE FIRST WORD IN THE DIRECT AREA 0740 * 
0686 * BECAUSE THEY ARE ALSO COMMON TO THE IMPL WRAP ROUTINES * o741 * “EQ X10" 
1 0687 ®AARAAAAAAARARARARARAAAAAARAAARAAAARARARARARARARARARARAARARAAARARARARAR 10 0742 MPIOBERR EQU X‘08' 
0688 DINUXNTO EQU 0 XIENT WORK SPACE # 0 0743 —* 
0689 DINUXNT] EQU DINUXNTO*] = XIENT WORK SPACE # 1 0744 * 
ll 0690 DINUXNT2 EQU DINUXNT1+1 §XIENT WORK SPACE # 2 n 0745 PSIPLF1 EQU xX‘O4' 


0746 =PSIPLI1 EQU X‘02' 

0747 MLCA32K EQU X‘OI' 
12 0748 WRRARRARAARRARRRRRRARE 

0749 * CONTROL STORAGE SIZE 

0750  AARRRAAARRRRRARRRRERRD 
B 0751 * 

0752 RRRRARARRRRRRRKARRKRED 

0753 * ‘CONSTANT’ POINTERS 


0691 OINUXNT3 EQU  DINUXNT2+1 —_-XIENT WORK SPACE # 3 
0692 OINUXNT4 EQU = DINUXNT3¢1 = XIENT WORK SPACE # 4 
0693 DINUXNTS EQU DINUXNT4*1 = XIENT WORK SPACE # 5 
0694 DINUXNT6 EQU  DINUXNTS+#1 —KIENT WORK SPACE # 6 
0695 OINUXNT? EQU DINUXNT6#1 © XIENT WORK SPACE #7 
0696 * 

0697 DIDSKTAB EQU DINUXNTO 


DISK EXTENT TABLE CUSED BY IPL ONLY) 


0704 DLASSAVA EQU =DIUNUSOS+1 == BEST FIT ASSIGN SAVE AREA 
0705 DIXAMSWI EQU DIASSAV@+1 = EXAN SUAP IN CANDIDATE 6 
0706 DICURKX2S EQU  DIXATSI+1 CURRENT (EXE - 28) 6 
0707 OIVSCAF EQU DICURKZ8+1 © STORE FEATURE INFORMATION FOR ATOM 231755 
0708 DLIOLDAR EQU = DIVSCAF+! ‘SAVED LOGICAL DISKETTE DATA ADDRESS 9194 


2793 TCOSTAT! 
01070000 


274H  RAARARAAAARAKARAARARAARAAARAAAAAAAAARARARAAARARRARRARAAAARAARRERRARRARR 


. Li * PRIOR ® TTINE * 


he 
2750_* TCBSTAT2 EQU TC 


SPL73_ VERSION 08/26/80 
Ol} IF 00 LINE 
1 
0772 * THE FOLLOWING 


PAGE 14 


TIME 02:15 DATE 81/12/08 


071 ; GRRSRARRRARRRRARRRRRRARARRARRRARARO AS RNRRERRERERNUSEEROANETTERIOR 


0718 * THE FOLLOWING BIT IS SET IN bes HIGH sill IF NECESSARY 02 0773 ~DILDSS «EQ 
0719 OIPGFULL EQ MENT IN L 0774 DILOSN EQU [ 
0720 * meer OF 7 x PAGES CHIGH BYTE) 0775 DILDLINK EQ 
0721 DIMSIZE EQU DISMFa+l MAIN STORAGE SIZE IN 2K PAGES (LOW BYTE) 03 0776 DILOSTRT EQ 
o722_* ' ; 0777 DILDRTOT EQU 
0723  RARRAAARAARARARARARARAAARARRKARARRARARARARARARAAARRARARERARRARARARRRAR 0778 DILDLOAD EQ 0 
0724 * SYSTEM INDICATOR WORD FOR SEGMENT ONE r 04 0779 * 

0725 RAAAARAAAARARAAARRAAARAAAARARARARAAAARAARAARARARAAAAAARARARAARAARRARRARK 0780 DACVERA EQU 
0726 DLINOR] EQU DIMSIZE+1 SYSTEM INDICATOR WORD FOR SEG 1 0761 * 

0727 DICSIZE EQU  DLINORI CONTROL STORAGE SIZE (LOW BYTE) 0 0762: AARRARARRARARARS 


0783 * TASK DISPATCHE 


0729 ®AARRARARARRARAAAARRRARAAARRARARARRAARARARARERRARRARARRRRAARARRRARARRRR 0784 RRARRRRARRRRRRRE 
0730 * SYSTEM INDICATOR WORD BIT EQUATES CHIGH BYTE) ® 06 0785 DIDSPFLE EQ OD 
073] RRRRRAARAARAARAAAAARAAARARARAARAARARARARAARARARARARARAARAAARARAARARARAR 0786 * HIGH BY 
0732 DMPROTCT EQU X'80' DUMP FILE PROTECTED INDICATOR 0787 -* Eu SX 
0733 ~* * 0 - THE DUMP FILE IS NOT PROTECTED 07 0788 DSPRGRST EQU Xx 


0734_* * 1 _- THE DUMP FILE IS PROTECTED 0789 _XAREAREF EQU _ X 


0735 OMPINPRG EQU  X'40' STORAGE DUMP CURRENTLY IN PROGRESS 0790 DSPADACT EQU xX 
0736 * * 0 - NO DUMP IN PROGRESS 03 0791 OSPFCUR EQU xX 
0737_—* ® 1 - STORAGE DUMP_IN PROGRESS 0792 DSPERPND EQU xX 
0738 DMPSUSAC EQU  X'20' SUSPEND TASK FOR ADDRESS COMPARE DUYP = 3 0793 DSPHOLD EQU xX 
0739. * * 0 - DONT SUSPEND TASK FOR DUMP 3 09 0794 DSPEXAN EQU xX 
0740 _* ® | - SUSPEND TASK AFTER DUMP 3 0795 _* LOW BYT 
O71 * =~ EQ X‘l0° UNUSED 07% * 
0742 MPIOBERR EQU X'08" MULTI-PURPOSE 108 ERROR INDICATOR 10 0797 *RRAARARRARARARR 
0743_* * 0 - NO ERROR IN MULTI-PURPOSE 108 0798 * ALTER/DISPLAY | 
0744 n x 1 ae: PERM DISK ERROR IN fi.P. 108 0799 RERAARARRAARRARR 
0745 PSIPLFl EQU X°04' IPL FROM DISK INDICATOR ll 0800 DIADCNTL EQU D0 
0746 =PSIPLI1 EQU X‘02‘ TPL_FROM DISKETTE INDICATOR 0so1_* 
2K CONTROLLER 0802 * HIGH BY 
0803 * 
0804 ADEXIT EQU X 
0805 ADSYSOMP EQU xX 
0806 ADINQURY EQU xX 
0607 ADTRACE EQU X 
0753 ® ‘CONSTANT’ POINTERS TO CONTROL STORAGE ITEMS 0808 * 
0755 _DISTKa EQU DIINDRI+1 ADOR OF START OF REG STACK 0810 ADACTIVE EQU X 
0756 DISVCIre EQ DISTKa+1 ADOR OF IMPEDIATE SWC TABLE 0811 ADITRMOD QU Xx 
0757 DISWPRIN EQU DISVCIN@+1 MINIM NUMBER OF PAGES TO PARTIAL SUAP > 0812 ADSTPMOD FQU x 


0758 DILATRA EQU  DISUPMINe] — ADOR OF LOAD ATR ROUTINE IN SEGENT 0 

0759 DIREGPTR EQU = DILATRa+) POOR OF START OF FSP REGISTER SAVE AREA : = 7 
0760 DISEC@ EQU DIREGPTR+1 © SYSTEM COUNTER TABLE ADDRESS 

0761 DITWAa EQ DISECa+1 


DATE 81/12/08 


+ TASK IS NOT ON READY QUEUE 
- TAK ead TO O1SK._ 


* TASK IS QUIESCED ~ TCAQNT = 0 
_ TASK HAS ARP OUT 1/0 IN PORES 


~ SET ON WHEN TAGK FULLY SWAPPED OUT. 
-_FOR SWAP INDICATOR 


TCBSTAT2 EQU TCBSTATI+1 _—TCB STATUS BYTE 2 


B17 


SOURCE 
THE FOLLOWING 6 WORDS ARE THE CURRENT LOADER PARM LIST VALUES 


0773 DILDSS EQU DISTKPTR+! HIGH AND MIDDLE BYTE OF SS FIELD 
WU DILDSS+1 LOW SS BYTE AND NUMBER OF TEXT SECTORS 
O75 DILDLINK EQU  DILDSNel LINK-EDIT ADDRESS 
0776 DILDSTRT EQU DILDLINK+] © START CONTROL ADDRESS 
0777 DILDRTOT EQU  DILDSTRT+1 —RLD DISPLACEMENT AND NUMBER OF TOTAL SECS 
0778 DILDLOAD EQU = DILORTOT+1 DDULE LOAD ADDRESS 
0779 * 
0780_DIACVERA EQU  DILDLOAD+1 —_—A/D ADDRESS COMPARE VERIFY ADDRESS 
0781 * 


0782 *AAAAAAARARAARARRARRARAAAAAKAARARARAARARAAARAAARAAAAAARARAARAAAARAARARR 


0783_* TASK DISPATCHER CONTROL WORD £ 
0784 RAALRKAARRARRRARRRA' RRRRRRARARARRRAAARRRAAARAARRAKARRRAKAARAKRARAARAAARA KR 
0785 DIDSPFLG EQU DIACVERA+1 = TASK MANAGEMENT FLAGS. 

078 * HIGH BYTE 

0787 * EQU x"60' UNUSED. 

0768 OSPRGRST EQU X‘40' TASK REGISTER RESTORE REQUIRED. 

0789 XAREAREF EQU X'20' TRANSIENT AREA REFRESHABLE. 

0790 DSPADACT EQU § X'10' DISABLE TASK DISP, ALTER/DISPLAY ACTIVE. 
0791 DSPFCUR EQU X'‘08' FORCE SWAPOUT OF CURRENT TASK. 

0792 DSPERPND EQU  X‘04' DISABLE TASK DISP, MSP ERR PENDING 

0793 OSPHOLD EQ xX°‘02' TEMPORARY REQUEST TO HOLD DISPATCHING 
0794 OSPEXAN EQ X'Ol' EXAM INDICATOR 6 

0795 _* LOW BYTE 

07% * 


0797 RARAARRARKAARAAARAARARARARAAARAARKRAARAAARRAAAKRARRRARAAAKAARRARRRRARRARRARAK 


0798 _* ALTER/DISPLAY CONTROL WORD id 

0799 RAAKRARRARARAAARAARRARAARRAARRARAAARRARRARAARRAARAKAARRAARAAARAARRARAAR 

0800 DIADCNTL EQU DIDSPFLG+1 — ALTER/DISPLAY CONTROL WORD 

0801 _* 

0802 * HIGH BYTE CONTROL BITS 

0803 * 

0804 ADEXIT EQ X‘80° EXIT ALTER/DISPLAY. 

0805 ADSYSDMP EQU X'40' ALTER/DISPLAY SYSTEM DUMP REQUEST. 

0806 ADINQURY EQU  X‘20° DISPLAY A/D OPTION MENU. 

0807 ADTRACE EQ X'10° INSTRUCTION TRACE. STEP, ADDRESS COMPARE 

0608 * ENTRY INTO ALTER/DISPLAY. 

0809 ADWAITNG EQU X‘08° ALTER/DISPLAY WAITING. 

0810 ADACTIVE EQU X‘04° ALTER/DISPLAY ACTIVE. 

0811 ADITRMOO EQU X‘02° A/D IN INSTRUCTION TRACE NODE. 

0812 ADSTPMOD EQU  X‘O1" A/D IN INSTRUCTION STEP MODE. 

0813_* 

ob14 * LOW BYTE CONTROL BITS AND OFFSET INTO SADINIT 
OXREF TABLE THAT HAS DISK ADDRESSES OF 
A/D TRANSIENTS. 


LEAVE STOP LATCH ON UHEN EXITING A/D. 
960 CHARACTER CRT SCREEN 
ON - RESET START 


ay 


VERSION 08/2 


LINE 
0826 
0827 
0828 


x 
RARRAAARARARARAARRAA 
* SYSTEM FLAG WORD 
RRAALAAARRARRAARAARRAA 
DISYSFLG EQU DIADCA 
® HIGH BYTE 
TRALOAD EQU._ X80 
SwPIO EQUx'80" 
TWALOAD QU. xX"80' 
LOTNPROG_EQU _X'80' 
LOFCHREQ EQU—X"40" 
GETPANYP EQU  X‘20° 
GETPHSIC EQU _X'10° 
GETPROTC EQU _X"08™ 
EQU X'04" 
EQU_X‘02" 
x01 
LOW BYTE 
EQU_X'80" 
Eq x"40" 
EW X'20" 
EQU_x'10" 
eq x08" 
EU x'04" 
equ x'02" 
ew XO 


= 


» Be 2 eee Ue ee Rl em 


DIASRFLG EQU  DISYSFI 
ASGNERR EQU  X'80° 
AFINPROG EQU = X‘40" 
ASGNSEQ EQU X‘20° 
ASGNPAGE EQU  X‘10" 


DITIAAB EQU  DIASRFI 
DITPTOXH EQU  DITINAE 
DITPTOXL EQU  DITPTO) 


2: 


5 


DATE 81/12/08 


EYSO Bt "ALLE N OR 
FRO PENDING 


TCBPRINV EQU X"FF' 
Uo i ' 


MRJE PRIORITY 
BCS PRIORITY 


B TCBPRSP £0 
TCBPRMR EQU  X'FO' 
TCBPRBSC EQU X'F4' 


INDICATOR FOR NS GETP XIENT 6 U0 


UNUSED. 
UNUSED. 


EQ X'04' 
Equ. X'02' 
Eq Xx‘01' 


07 0843 * LOW BYTE 07 
0844 * QU x‘80' UNUSED. 
0845 * ew "40" UNUSED. 

0846 * QU X'20' UNUSED. 08 
" EQ xX'l0' UNUSED. 

09 

10 


ASSIGN RECOVERY FLAG 

PERMANENT ASSIGN FAILURE HAS OCCURRED. 
ASSIGN RECOVERY IN PROGRESS. 

ASSIGN RECOVERY SEQUENCE HAS BEEN STARTED 


DIASRFLG EQU DISYSFLG+1 
ace "e equ x'8O' 
0855 AFINPROG EQU X‘40° 
0856 ASENSEQ EQU X'20° 


SG 


ASR WAITER OUTSTANDING MUST RECOVER 
MAXIMUM NUMBER OF RELOOPS 
USED FOR A COUNTER 


TIMER MAB SAVE AREA. 
TOX OF FIRST TQE ON QUEUE CHIGH.> 
TOX OF FIRST TQE ON QUEUE (LOW.> 


0862_DITIMAB EQU  DIASRFLG+1 
0863 DITPTOXH EQU  DITINAB+! 
4 0864 DITPTOXL EQU DITPTOXH+1 
0665 * 
0866 


0867 * ‘CONSTANT* POINTERS TO MAIN STORAGE ITERS 


ADOR OF MAIN STORAGE TCB QUEUE. - 
ADDR OF MAIN STORAGE ATR NAP 

ADOR OF MAIN STORAGE FREE AREA 
(DOR OF MAIN STORAGE TRANSIENT AREA 


0869 DITCBHDR EQU  DITPTOXL+1 
0870 DIMGATRS EQU  DITCSHDR+1 
0871 DIFREEPT EQU  DIMSATRS+1 
0872 DIFNTPT EQU DIFREEPT+1 


7] 0873 DIDSTQE EQU DIFKNTPT+1 © ADDR OF MAIN STORAGE DISPATCHER TOE 
0874 DITRSAVE EQU DIDSTQE*1 SVC TRACE ADORESS SAVE AREA ome 


‘QDR OF MAIN STORAGE MIDWIGHT TQE © sauna 
DOR OF MAIN STORAGE KIENT TABLE-4 


0875 DNWTGE EQU  DITRSAVE+] 
0876 DINNTBL EQU  DINNTQE+1 
OCT? DICACES EQU DLNTBL+1 ®O0R OF MAIN STORAGE XIENT ACE 
0878 OUPIOBA EQU DIKACES+] «AOR OF MAIN STORAGE PRLTI-PURFOSE 108. 
os79 DISH GW DIPioBa SGOR OF MAIN STORAGE SAP I0B. 
08 DINNGR EW DITPIRe SOUR OF MAIN STORAGE TASK UORK AREA 108. 


ay? 


gt 


2915 TCBAINL EQU 


FERSION 08/28/80 
LINE 

0881 _DINKIOBa EQU 
0882 DILDIOBa EQU 
0883 DISWACEa EGU 
0884 _DIGPFLAG EQU 
0885 * 1GH 
0886 ASGNFAIL EQU 
0887 _FOFAIL EQU 
0688 TASFAIL EQU 


0895 DISTKSAV EQU 
0896 _DIQHSAVE EQU 
0897 DIIPIOBa EQU 
0898 DITRACEA EQU 
0899 DITRIOBA EQU 
0900 DITIACEa EQU 
0901 * 

0902 RRARAARAARARK’ 
0903 * ‘CONSTANT | 
0904 «= -RAARARRRRARAR! 
0905 _DIFRCTCB EQU 
0906 DIDSPTCB EQU 


0914 O1ILSWRK EQU 
0915 DISAVEIN EQU 
0916 DIIARS EU 


0886 pee 7) 
O88? _FFATL 


eal x‘02" 
Eq x‘o1' 


0895 DISTKSAV EQU DIGPFLAG+1 
0896 01QHS QU DISTKSAV+1 
0697 DIIPIOBA EQU DIGQHSAVE+1 
0896 DITRACEA EQ D1IPIOBAa 
0699 DITRIOBA EQU DIIPIOBA+1 
0900 DITIACEa EQU DITRIOBA+) 
0901 * 


"CURRENT A R 0 Q BYTES 
«_ INLINE PARM 1 


AOR OR FAIN STORAGE SURP ACE. 
GENERAL POST FLAG WORD 


SQS FAILURE INDICATOR 
a cee FALE INDICATOR 


STACK POINTER SAVE AREA 

SAVE AREA IN QUEUE ROUTINE FOR Q HEADER 
TPL [0B (VALID DURING IPL) 

ADDR OF DISK TRACE ACE (VALID FOR TRACE) 

ADDR OF TRACE 108 

DOR OF MS INTERVAL TIMER ACE 


hae ai lohan anna 
0902 
4 7 z 


0906 DIDSPTCB EQU = DIFRCTCB+) 
0907 DICURJCE EQU DIDSPTCB+1 


0914 DIILSWRK EQU DIRTTABL+1 
0915 DISAVEIN EQU = DIILSURKe? 
0916 DIIARS EQ  DISAVEINe! 
0917 DICURTCR EQU DIIARS+1 

O918 DIXTCa EQ DICURTCB+] 
0919 DILOACES EQU DIXTCBa+1 
0920 DISWICSI EQU  DILDACEA+] 
0921 DITWICRa EQU = DISMTCBI+1 
0922 DILOTCRa EQU = DITUTCRa 

0923 DILOGPT EQU  DITUTCBa+i 


WORK AREA FOR USE ON ILS 

POST ROUTINE INPUT SAVE AREA 

SAVE AREA FOR INPUT IAR VALUE 

AOOR OF MAIN STORAGE UDRKING TC8 
AREA ODER. 

AOOR OF ACTIVE M.S. LOADER ACE 

SMAPIN TCB ADDRESS. 


RELOCATING LOADER TCB ADDRESS (SHARED) 
AOOR OF NEXT TAACE LOG OUT ENTRY 


ALS 


39 88 8 32 392938 


TCBIOCIC EC 
TCBIDINS EC 


ON 08/2878 


R 
x 


DILOGSS 
O1LOGSIZ E 
DILOGUSD E 
DICURXNT E 
DICSOUP E 
DICURTRE E 
DIPREVRB E 
® 


RRRRARARARK 


* HS. PRO 
RARAAARRARK 
vim 
DIXR2 
DIARR 
Die 
DIPHRPSR E 
ping 
DiiMi2 
D1IM34 
® 


* TL5 WORK 
RARKRARRAR 
LUNUSSE El 
DIILSPCR & 


item Swen wer 


SNUF SUBSYSTEM TASK ID 
SNA feet Stee TASK [0 


reetocic Eq cics "anStSTEN Task 10 
TCBIOINS EQU IMS SUBSYSTEM TASK 10 


SPL73 VERSION 0 
Ol] IF 00 LINE 

099] xan 

09 ) = SIZE OF TRACE BUFFER CN) 0992 * El 

0938 DILOGSS EQU DILOGSSH*1 — SECTOR ADORESS OF TRACE FILE CH,t) 02 0993 xe 

0939 DiLORsi2 WU _DILOGSSe1_TRACE FILE SIZE 0994 Dis 


IME 02:1 DATE 81/12/08 


DISK ADOR OF XIENT CURRENTLY IN MS AREA 0 0996 se 
alld STORAGE DUMP FILE SECTOR ADDRESS 0997 * 


0947 ® 1S. POLES REGISTER SAVE AREA 05) 1002 DIR 


948 AAARRRNRREERRRRRRSERRRRRRRARERARRARARERERRERRERRRRRARARRARRARRERARARAR 1003 DIR 


0953 DIPFRPSR EWU DLIAR+1 07) 1008 0105 
0954 DIRQ = EQUDIPHRPSR+1 ~—sR._- AND _Q BYTES 1009 _* 
0955 DIINM12 EQU  DIRQ+ INLINE PARAMETERS 1 2 1010 RCT 
0956 D1INL34 EQU  DIINLI2+1 INLINE PARAMETERS 3 4 03 1011 * 


AARRRRRARARARR 1013 * Nt 


u r! us ‘i RARAR' 
0959 215 oN AREAS FOR ee roca ® 09 1014 **s9 
RARRAERRAARARRARARRARRATRARANR: 


RERRARRARRARARARAAARAARAAARARARAA RARE 1015 * 


10 1017 * 
~__ CHNL_DEVICE ADOR 1018 D1HC 


START THE MSP GEFORE EXIT n 1020 *#* 
POST SVC FROM IL2 1S IN PROCESS 1021 * Al 


MSP NOT BUSY (ND TASK AVAILABLE) z 1023 * 
(SP WAITING FOR START KEY 1024 DIAC 
PRESS START OF [SP 1025 DIAC 

ERROR PENDING, RECOVERY IN PROCESS : 3 1026 DLAC 
0972 HPHALTED EQU HPNOTBSYsHPWALTNG¢HPERRPND DO NOT START MSP ig 
0973 * 028 
0974 DIMPCSTK EQU DIHPCSDAe] © CURRENT STACK POINTER FOR CS SVCS FROM 112 14 1029 
0975 DIHPSTK EQU DIHPCSTK*1 STACK POINTER FOR CS SVC REQUESTS FROM 112 1030 
0076 * 


0986 pontoons DIACERRI ME 108 a LE 1§ 1041 
o9e7 See DIACEIOBe1 = ACE AR? VALUE 10a 
tu ACE PRRAETER a VALE 


¢ 
Sod’ 1°82) BBR RB BR 


vy 
iS 


Ol} [F 00 LINE 


NOT_TNQUIRABLE COUNT 


ACTIVE REQUESTOR COUNT 
STATUS BYTE 6 


B21 


PGE 19 


099] AANAARANAARKARKARAAARAARRRARAARAAAAKARAAAARRARARRARRARAARARAARRARAARARAK 


~rY NinY POINTS FOR RULITIN 


‘ PU t 


N THE FIRST SEGHENT OF CONTROL STORARE * 


0993 AARKAAKAKRRRAKAAAARAARAAKAARARAARRARAAKKARAAARARAARRAAAARAARARARAARARARK 


0994 _DISETSW EQU  DIACETCB+1 


SET ACTION CONTROL WORD ENTRY POINT 


RRARAARRARARAARAAARAARARARAAARAAAAARRARRARAAAAAAAKAAAAALAARAARAARAAAKAAR, 


wi tla lll 


er areermesrearaerrarearaeceertrs SRRRRRRRRRRRRARD ARRRARRAR 


1000__* Q AND R BYTE PARNS FOR DISK READ/WRITE FUNCTIONS CUSED BY NUDIO) 


1001 

1002 DIROMS §EQU  DISETSWa+) 
1003 DIROCS FQU _DIROMS+1 
100 

1005 DIMAS §=EQU  DIROCS+1 
1006 DIWACS EQUODIWRMS+1 
1007 * 

1008 DIDSTIME EQU DIWRCS+1 


61 


1012  RARRARARRRRARARARARARAARARA: 


NON CONSTANTS FO 


Q/R BYTES TO READ INTO MAIN STG 
Q/R BYTES TO READ INTO CTRL STG 


Q/R BYTES TO WRITE FROM MAIN STG 
Q/R BYTES TO WRITE FROM CTRL STG 


DISPATCHER/ SWAP TINE INTERVALS 
>> TASK TIMER INTERVAL: « 
>> 61 TIMER UNITS = 499.712 MSEC. <adaee 


RARRARRAARARRAAARRRAARRAARRAAARRARRARAARRARR 


R RETRY STORAGE CORRECTION 


1014 ®AAAAARAAAARRARAAARRARRAARRAKAARAARAARRARARAARARARRAARAAAAARARARAARAAAR 


1015_* 
1016 DIHCSTGa EQU = DIDSTIME+1 
1017 * 
1018 DIHCSTGD EQU DIHCSTGa1 
1019 * 


FAILING MS ADDRESS 
CORRECTION FLAG / CORRECTED DATA 


1020  **RRAAARAARARRARARARAAAAAARARAAAARARARAARARAARARARARRARRARARAAAARARARRR 
1021__* ALTER/DISPLAY WORDS FOR ADDRESS COMPARE/VERIFY FUNCTION * 
022 RARRARRRARR RARRRRTRARRARI RARRRRERR 


T TT 
1023 * 

1024 DIACVERD EQU DIHCSTGD+1 
1025 DIACTSK@ EQU  DIACVERD+) 
1026 DIACCNTL QU  DIACTSKae1 
1027_* HIGH BYTE 

1028 ADCTASK EQU X'80" 
1029 ADCREAL QU X°40° 
1030_ ADCVERFY EQU X‘20° 
1031 ADCRATCH EQU X10" 
1032 ADCTON EQU X‘08" 
1033 ADCTEF =EQUOX‘04" 
1034 ADCFOUND EQU = X‘02" 
1035 ADCONPRQ EQU = X‘O1" 
1036 * 


RRA: 


A/D ADDRESS COMPAGE VERIFY DATA 
A/D ADORESS COMPARE TASK ADDRESS 
A/D ADDRESS COMPARE CONTROL WORD 


STOP IF TASK ACTIVE 

REAL VERIFY ADDRESS 

VERIFY STOP 

STOP IF DATA MATCHES 

STOP IF BITS ARE ON 

STOP IF BITS ARE OFF 

ADDRESS COMPARE FOUND ON IL5 

ADDRESS COMPARE DUMP REQUEST 3 


1037 * EQUATE FOR SETTING OFF THE SOFTUARE ADDRESS COMPARE CONTROL BITS = 3 
1038 ADCRESET EQU  ADCTASK*ADCREAL *ADCVERFY 3 


AZ1 


4 


076 "0 "Ol 02 03 
"ORL * FLAG" COW) _* CADD_* UNITE * 


SPI VERSION 06/26/80 
01] IF 00 LINE 
1046 _*** END OF EXPAISION ** 
v FC} 


1048 ECHPARN EQU 0 

1049 ECHNSKIP EQU. X'80' 
50 ECMREAL GQU X40 
1051 ECMTTC §=EQU  X'20' 
aa eenicene Ect Xai 


Peery 


1089 ECMGW 
1070 PREEMPT EQU X'80' 


1 

1072 *** END OF EXPANSION ** 
1073_* ERB 

1074 ERBDCHN EQU 

1075 * 

1076 ERBDOVI EQU  ERBOCHN+1 
1077 ERBOISKT EQU X'‘DO' 
1078 ERBGAIJI EQU = X‘C3" 
1079 _ERBOISK EQU X‘A0' 
1080 ERBMLCA EQU = X'80' 
1061 * 

1082_ERBOQHD EQU  ERSDDVI+1 
10863 * 

1084 ERBOCTL EQU ERBOQHD+1 
1085 _ERBBUSY EQU X‘80° 
1086 ~ERBCDONE EQU = X"40° 
1067 ERBDONE EQU X‘20° 
1088 _ERSERR2 EQU X*10° 
1089 ERSPLTLA EQU  X"FO' - 


04 * 05 


B22 


PARM BYTE OFFSET 

00 NOT SKIP ON MULT. WAIT INDICATOR 

DATA ADORESS IN 108 1S REAL INDICATOR 
TASK-TASK COMMUNICATIONS INDICATOR 


1080 SETA TN CATOR 
THER EON WOICATR 


TEST AND SET INDICATOR 
CSB TRANSFER INDICATOR 


ECM ~ EVENT CONTROL MASK OFFSET 
. ee | ACTIVE 


ECM - GENERAL WAIT MASK FIELD 
._ DO NOT PREEMPT BIT 


CHAIN FIELD 


DEVICE 1D 

DISKETTE: DEVICE [0 12/6/79 RJB 
GAIJI TASK 10 
DISK; DEVICE 10 12/6/79 RJB 
DEVICE 1D ADDED FOR FLCA 


Q HEADER DISPLACEMENT 


ERP CONTROL 

THE ERB IS IN USE, AWAITING IS ACTION 
C.S. ROUTER OPERATION COMPLETED 

1.5. ERB OPERATION HAS BEEN COMPLETED 
READY RESPONSE WAS A 2ND ERROR 


PSK TO SET OFF ZONE BITS TO CHECK FUNC. 


1090 * THE LOWER 4 BITS OF THIS BYTE ARE ENCODED WITH THE FUNCTION TO BE 
1091_* PERFORMED. CURRENTLY THE X‘OS" BIT IS NOT BEING USED. HOMEVER IT 
1092 * IS RESERVED FOR USE AS PART OF THE FUNCTION ENCODING SCHETE IF UE 
1093 * NEED TO ADD MORE THAN 2 FUNCTIONS TO THE EXISTING SET. 


01 


p 


* ERAIO * 


RRRRRARRAKAK 


SPL/3 VERSION 08/28/80 


IF 00 LINE 
1101 
1102 


® Ed 
EROMERR EQ 


1103 * 


1104 
1105 
1106 


ERBOFLG € 
ERBTRMIO EQ 
ERBMERRC €Q 


no7_* 


1108 
1109 
1110 
11 
nl 
1113 
4 
nis 
116 
117 
1118 
ng 
1120 
121 
1122 
1123 
1124 


ERBMNRSP EQ 
ERBMNLOG EQ 
® NOTE: IF J 
a BYT 
& UP | 
® WORKSTAT IC 


* DISK , DIS 
ERBPTASK EQ. 


25_* 


1126 
1127 
1128 


* FILCA ERROF 
ERBCELOG EQ. 


1129 * 


1130 
1131 
1132 
1133 


R 


ERBOCPA 
ERBDERA 


BS i8 SBSSISSRSSS 8 BSgg 


- 1144 ERBAOPO EQ = X‘08" 


; 0* 1 
3128 * Efald * fic 8 orTs * * ERACT * 
3129 RRARAAARARAAAAARKRARAARRAAKARARARAARARARRARAR: 


3131 * 10 * CFG 
3132 *WRAWRARARAARARRARAARARAERAAAARAAAARARAARARRERRARRA RARER ARERR 


310 * FORNS NUPBER CAML? GUIs eh WEE 
3135 "*90PTIONAL ADDITION BELOUP®®*R*R=QeTIONAL ADDITION  BELOMER*RH® 


INFO RESSAGE 


TS ERROR 


s 
i 
0 
114 EROPPOST ew x08" 


1115 eee aha 


7 & CORDTT ONS. THE 7H CONDITION IS UNUSED. 
1118 echt ew 3 — nc danaiaged 
; 


THIS ERB IS IN RETRY MODE 
ann , 


20 EROPPERR EU PROGRITTING ERROR 
ha * EQ 0 UNUSED 

1i22_* 

1123 * DISK , DISKETTE , AND 1255 ERROR RECOVERY 
1124 ERBPTASK EQ X‘01' 


11246 * 

1127 *® MLCA ERROR RECOVERY 

1128 ERBCELOG EQU. X‘O1' TF_ON LOG TO CE TRACE AREA 

12a * IF OFF LOG TO USER TRACE AREA 
1130 -* 

1131_ERBOCPA EQU ERBOFLG+] CP AID COLD EQUATE VALUE) 
1132 ERBDERA EQU — ERBOCPA ERROR AID BYTE (NEW EQUATE VALUE) 
1133 ERBIOER EQU X‘O1" 1/0 ERROR HAS OCCURED 

1134 ERBNORM EQU. X‘00' WORMAL_ER AID BYTE VALUE 

1135 * 

1136 ERSOMIC EQU ERBOCPA*2 = MIC NUMBER 

3? * 

1138 ERBDOPT EQU  ERBOMIC+1 MIC OPTIONS 

1139 ERBSOPD EQU  X"FO" ‘D* OPTION WAS TAKEN TO MESSAGE 
1140_ERBSOPO EQU X'80° OPTION O WAS SELECTED 

1141 ERBSOP] =EQU  X*40° OPTION 1 WAS SELECTED 

1142 ERBSOP2 EQU  x‘20° OPTION 2 WAS SELECTED 

1143 ERBSOP3 EQU X10" OPTION 3 WAS SELECTED 

OPTION 0 IS ALLOWED 

OPTION 1 1S ALLOWED 

OPTION 2 1S ALLOED 

OPTION 3 IS ALLOWED 


1195 ERBAOP] EQ X‘04" 
1146 ERBADP2 EQN. X°02" 
1147 ERBAOP3 EQU X‘O1" 
1148 * 

1149 ERBOLNL EQU  ERBDOPT+1 LENGTH OF WS TUB ERB 
150 * 

151 ERBDACE EQU  ERBDOPT+2 ACE ADDRESS 
1152_ERSOLEN EQU  ERBOACE+1 LENGTH OF ERB 

1153 *** END OF EXPANSION = 

1s * FEI 

155 SPACE 


‘o1' AND WORK 


TUB POSTED COMPLETE WITH ERROR (CP ONLY) 


POST TASK HAVING 1/0 ERROR TO CALL THE 
25 * 1/0_ERROR TRANSIENT BACK INTO STORAGE. 


PAGE 21 


TIME 02:15 


DATE 81/12/08 


ON 08/28/80 


RAKRAERARARARAARRI 
® 
* 
® 
RARRAERRRARAARAI 


FIADDATE EQU F 
SPACE 
FLADSDIR EQU Ff 
SPACE 
FIADTYPE EQU 
FIAMINDX EQU 
FIANCONS EQU 
FIAMDIRC EQU 
FIAMROFL EQU 
FIANPERM EQU 
FLANTEMP EQU 
FLANJOBR EQU 
FLAMSCRT EQU 
SPACE 
FIADSFLG EQU F 
SPACE 


® THE FOLLOWIN 
RRRAAARARARRRRAR 

SPACE 
FLAMSORT EQU Xx 
FIAPIRGE EQU xX 
FIAMDPCK EQU Xx 
® 


Sscicse¢ Sc SeiSe Sc saclsec “TS 


FIAMUNFG EQU  X 
x 


FIASCO EQU OX 
x 
FIASCLB EQU OX 
‘4 


SPACE 
FINE EQU OX 
FIAPSPAL QU OK 
FIASPA2 EQU Xx 

SPACE 
* IF BOTH OF © 


DATE 81/12/08 


3189 TUBCIND EGU TUBFLAGe 


3190 


1173 FLADTYPE EQU  FIADDATE+1 


74 FUT Q 


1176 FIMDIRC Equ 
1177_FLAMROFL Ha 


1179 FLAMTEMP cal 
1180 FLARUOBR Eq 


1189 _FLAMSORT EQU 
1190 FLAMARGE EQU 
1191 FLAMDPCK EQU 
1192_* 
1193 FLAMKNFG EQU 
1194 -* 


X04" 
x‘02° 
x‘01" 


x‘@0' 
x*40" 
x‘10° 


x"08° 


"READ INPUT NOT COMPLETE 
«DATA IN CONTROL STORE 


10B COMMAND BYTE 


FILE TYPE 
BIT ON = INDEXED FILE 
FIL 


BIT ON = DIRECT FILE 
BIT ON = 11 UNIT, BIT OFF = F1 UNIT 


BIT ON = FILE C'T') 
BIT ON = JOB FILE (*J") 
BIT ON = SCRATCH FILE C'S") 


BIT ON = MERGE KEYS 

BIT ON = UNDRDERED LOAD 

(CHECK DUPLICATE KEYS) 

BIT ON = INVALIO INDEX 
CKEYSORT MAYBE IN PROCESS) 


R 
1197 * THE FOLLOWING BIT MASKS FOR X°80° ARE VALID ONLY IF ‘FIAMINDX* om 


BIT ON = NEW FILE 
SPINDLE AL REQUESTED ORIGINALLY 


A24 


RS' 
01] IF 00 LINE 
Wn 
1212 
1213 
1214 
1215 
1216 
1217 
1218 


1220 
1221 
1222 
1223 
1224 
1225 
126 
1227 


* _ PREFERENCE Wh 


ACE 
FIAMLBFL EQU XxX" 
SPACE 
FIADRECL EQU FI 
SPACE 
FIADHIGH EQU FI 
FIANBLRN EQU X' 


1219 * 


FIADBLKN EQU Fi 
FIADRECN EQU FI 
SPACE 
FIADLBOW EQU FII 
SPACE 
FLADLBUS EQU Ff 
SPACE 
FIADLSTR EQU FI 
SPACE 
FIADSMEM EQU Fi 
SPACE 
FIADRFST EQU FIF 
® 


SPACE 
FIADSTDA EQU FIF 

SPACE 
FIADENDA EQU  FiF 

SPACE 
FIADVTOC EQU FIA 


n 
R 
R 
. BYTE 
x 
* 
x 


FIALIVIA EQU FIA 


SPACE 
RERARAEKTARERERTRE 


« WO VURTRALER tome UIE Ut 


B25 


epar 


1225 FIADLBUS EQU  FIADLBOW+] 
12:6 


LIBRARY - START OF MEMBERS 


START SSS OF RESERVED AREA FREE SPACE 08 


(3 BYTES) 


1234 FIADSTDA EQU  FIADLSTR+3 © SSS OF START OF DATA 
1235 SPACE 
1236 FLADENDA EQU — FIADSTDAt. 
1237 SPACE 
1238 FIADVTOC EQU  FIADENDA+2 
1239 SPACE 


1240 Bannnnnnnnnnnnnnnnnn 


SSS OF END OF EXTENT 


RELATIVE S/D OF VTOC_ENTRY 


“" 1249 *OFFSET “XXX 
1250 *RESERVED 


1256 FIM WIST EQU  B°00010000° FIRST FORMAT-1 IN SECTOR aasi9 
1257 * (ALSO INCREMENTS OFFSED a@613 
1258 FIAMN2ND EQU B°00100000° SECOND FORMAT-1 IN SECTOR aasi9 
1259 FIAW3RD EQU  B°00110000" THIRD FORMAT-1 IN SECTOR aasi9 
1260 FIAMNATH EQU §=B°01000000" FOURTH FORMAT-1 IN SECTOR aa419 
1261 FLAPWALL EQU §=B°01110000" CLEARS OFFSET 


i 
4 


¥ 
» 


1266 
1267 
1268 
1269 
1270 
1271 
1272 
12 

1274 
1275 
1276 
1277 


33 53! 


PEPE FEE: 


RS{ON 98/28/80 


Ol} IF 00 LINE 


® 

: FOLLOWING 
® —-CEXCEPT WHERE 
® 
ni 


FIADATT] EQU FAD 
FLAMATND EQU  X‘80 

SPACE 
FIADCONT EQU FAD 

SPACE 
FLADATTR EQU FIA 
FIANOTAD EQU  X‘80 
FLAMKBPR EQU X'40 
FIAMINFR EQU  X'‘20 
® 


FIAMHKAS EQU_ X'10 
ry 
FIAMNREC EQU  X‘08 
R 
FIAMONFG EQU  X'04 
x 


FIWMRFIL EQU  X‘02 
FIAMOLIW EQU X"01 
x 


SPACE 
FLADATT2 EQU FIAD 
® 


FIAMSCFL EQU  X*80 
FLAPCKPT EQU X40 
FIAMDLTC EQU X‘20 
FIAMIFIL EQU X10 
FIANGASK EQU  X"08 
SPACE 
FLADOWNR EQU  FIAD 
FIADEOFQ EQU  FLAD 
SPACE 
FIADRFED EQU  FIAD 


. 15 IN ERROR MODE 
«DEVICE OFFLINE ERAOR 


i FLADATT! EQU  FIADFCHNe1 
275 _FlAKTND EQU X'80' 
SPAT 


1277 FIADCONT EQU  FIADATTI¢1 


penance 


ATTRIBUTE BYTE ONE 
EXTEND CAPABLE FILE 


COUNT OF CURRENT USERS 


BIT ON = FILE OPENED AS OUTPUT OR 0 Of 
BIT OW = KEY 


BIT ON = occur TeD FILE 
CVALID_IN THE Mid 


VALID IN THE a) 
__BIT ON = FILE ALLOCATED IN RESERVE AREA 


aH FINREIL qu X02" 


1291 FIAMOLW EQU X‘Or" “BIT ON = OFF-LINE MULTI-VOLUME FILE 

1 1292 * CVALID IN THE VTOC) 10 
1293 SPACE 
1294 FIADATT2 EQU  FIADATIRe] ATTRIBUTE BYTE TW - THIS BYTE IS 

1 1295 * SUPPORTED IN BOTH THE AFA AND THE VTOC tl 
1296 * EXCEPT FOR A LIBRARY FORMAT-1 


1297 FIAMSCFL EQU = X80" 
1298 FIAMCKPT EQU  X‘40° 
1299 FIAWMLTC EQU X‘20' 
1300 FIAMIFIL EQU = X*10° 
1301 FIAMGASK EQU  X*08" 
1302 SPACE 


SECURE FILE 

CHECKPOINT ACTIVE FILE 

DELETE CAPABLE FILE 

IMMEDIATE ACCESS FILE CIFILED 

IFILE GAPS ADDED SINCE LAST KEYSORT 


12 


1303 FIADOWNR EQU  FIADATT2*2 
1304 FIADEDFQ EQU — FLADOWNR+2 


R QUEUE POINTER 
EDF QUEUE POINTER 


1305 SPACE 
1306 FIADRFED EQU  FIADEDFQ END SSS OF RESERVED AREA FREE SPACE 
or * (3 BYTES) 15 


SPACE 


1308 
1309 * 
1310 * 
Bi * THE FOLLOWING FIELDS ARE ONLY SUPPORTED FOR INDEXED FILES 
1312 .d x 


BB * NOTE: ee eS eS ee ee ee 
bie * FREED BY ALLOCATE FOR NON-INDEXED FILES 
rd 


RARRAARARARAARAARAAAKS 
® 


® THE FOLLOWING 
* FOR INDEXED FI 


® 
RARAARAARRAAA: RRS 


SPACE 
FAADKBKT EQU FADE 


FAADPCBQ EQU — FLADK 
FLADRES3 EQU FLADF 

SPACE 2 
FIALLGCD EQU  FIADE 
J 


SPACE 
FIALLGIN EQ FIADR 
SPACE 
FIALLGLB EQU  FIADF 
SPACE 


RRARRAARRAARKAARARAA 
RAAAARARRARRRI 


** THE FOLLOWING LAB 
** FAILURE OR PERMAN 
** LETELY MOVED THE | 
** OVERLAYED DURING 
me 


** TF SPACK IS ABLE 
** SET TO ZERO. 

RR 

®* THE VALUES STORED 
** LOSING ANY DATA [i 


*® EXECUTION. 
RRAARARARTRERARERRER 


SPACE 
FIFLAG «EQU FAW 
R 


FIRESTRY EQU X‘FF* 
x 


RAARARERRARAAAKRAAN 


RAARAAARAARARRAKRAK 


3410_* 1X - 


ones 
SPALI 


0 1326 FIADLSTP EQU FIADSTIXe4 © SSS/D OF LAST PRIME KEY 
27 SPACE 
26 FIADHOKY EQU FIADLSIP*4  5SS/0 OF HIGHEST KEY IN OVERFLOW AREA 
04 1329 SPACE 
1330_F A EQU FLADHOKY-FIADEDFQ LENGTH OF THE SECOND VTOC AREA 
() ne AAARAAARARRARRARRARR: RARARAARAARAARRRARAARRARARRARRARRAAAAAKRARARAAAARAARAAK 


1333_* ® 


08) 1341 FIADPCBQ EQU = FLADKBKT+2 = FILE POSITION CONTROL BLOCK POINTER 

1342 FLADRES3 EQU  FIADPCBQ+2 RESERVED FOR FUTURE USE 
char 2 

09 1344 FIALLECD EQU FIADEDFQ+1 © LENGTH OF A FORMAT-1 FOR CONSECUTIVE AND 
1345_* DIRECT FILES (40) 
1346 SPACE 

10 1347 FIALLGIN EQU FIADRES3+1 = LENGTH OF AN F1 FOR INDEXED FILES (64) 
1348 SPACE 
1349 FIALLGLB EQU DFCHNe] = LENGTH OF A LIBRARY FORMAT-1 (32) 

ll 1350 SPACE 
[352 **ARRAARRARAAARARARARARERARRARARRARARARARARARRARARRARRARARARRARARRY 7 


1353 ** THE FOLLOWING LABELS ARE USED BY SPACK TO INDICATE THAT A SYSTEM ** 


1361 ** THE VALUES STORED IN THIS AREA ALLOW SPACK TO RESTART WITHOUT 
.) 1362 ** LOSING ANY DATA IF THE ABOVE ERRORS) SHOULD OCCUR DURING 

1363_** EXECUTION. 

1364 


12 
1354_** FAILURE OR PERMANENT I/O ERROR OCCURRED BEFORE SPACK HAD COMP- = ** 
1355 ** LETELY MOVED THE FILE, WHERE PART OF THE FILE MAY HAVE BEEN mn 
1356 ** QVERLAYED DURING THE MOVE OPERATION. i 
1357 ae RR 
1358 ** TF SPACK IS ABLE TO MOVE THE FILE SUCCESSFULLY, THESE FIELDS ARE ** 
14 1359 ** SET TO ZERO. =n 
1360 a 
aR 
mm 
mR 


1367 FIFLAG «EQ «FIADVTOC*] «=—s1-BYTE FLAG INDICATING THAT RESTART OF 


Vy 1368 * SPACK IS REQUIRED FOR THIS FILE. 
1369 FIRESTRT EQU X‘FF* ‘SMITCH VALUE THAT IS PLACED IN FIFLAG 
170 * TF RESTART IS NECESSARY. 
16 1371 FISSTRI EQU FIFLAG+3 POINTS TO START SSS OF DATA THAT HAS BEEN 
B72 _* FOVED BY SPACK. 
1373 FISSEND EQ FLADEDFQ POINTS TO END SSS OF DATA THAT HAS BEEN 
19 1374 * POVED BY SPACK. 


1395 SPALE 
Ae oo se oe te ee a 
A27 


E 02:1 


AARERRARRRRRARERRRRRRARARRARRRRRARARAR HRANRARRAAARARAAARRAARAAAARRARR 


Lae Faihal MONE INDICATORS 
3009 RARAKRARRARARAKRAAKRRARKKARRRARAAARARRRAAAAARARAAKARAARARRAAAAARARRAAARAAAR 
3410_* 1K ~ STANDBY MODE * OX00_- INITIAL MODE & 


B28 
IF 00 LINE 01 1F 00 vi 
1376_*** END OF EXPANSION ** aa 
1433 
1434 
14 
1436 
1437 ¢ 
1438 
1439 
1440 
1441 
1442 
1388 1443 
1389 ** THE FOLLOWING QUEUE HEADERS ARE OFFSETS FROM LOCATION X‘0100° 1444 
06 1390 ** IN °°) STORE. THE QUEUE HEADERS HAVE VARIOUS FUNCTIONS 1445 
1391_**_De:/2°%:T_ON THEIR USERS REQUIREMENTS. ANY USER OF THESE QUEUE 1446 
1392 ** HEADERS MUST ALSO BE AWARE THAT CONTROL STORE MAY ALSO ACCESS 1447 
07 1393 ** THE HEADER ASYNCHRONOUSLY. 1448 
1394 * 1449 
1395 QHOFD £0 ‘00° DISK 105 CACED 1450 
03) 1396 QHOIO §=FQU X‘02' DISKETTE I0CS (ACE) M451 
1397 QHOPT EQU X‘04' PRINTER OCH CACED 1452 
1398 QHWSC  =EQU X'06° DRKSTATION [OCH (ACE) 1453 
09 1399 QHOCOMM =EQU x'08' COMMUNICATIONS 10CH (ACE) 1454 
1400 QHDIOXNT EQU X‘0A' 1/0 XIENT AREA CACE) 1455 
1“ * FQU XO" RESER 1456 
10 1402 * EQU  X‘0E' | 1457 
1403 * equ. x'10° | 1458 
1404 * fq X*i2° ] 1459 
11 1405 * EQU Xx'l4' | 1460 
1406 * equ X"16" I 141 
1407 GHDCKNT EQU X‘I8" 1462 
1 1408 GHDTWA EQU X‘IA' 1463 
1409 QHDLOAD EQU. X‘IC' 1464 
1465 
1 1411 QHOPT1 «EQ X‘20° 1466 
1412_QWPT2. QU X'22" 1467 
1413" GPS EQ X24" PRINTER QUEUE HEADER 3 (ACE) 1468 
14 1414 QHOPTa.  EQU X'26" PRINTER QUEUE HEADER 4 (ACE) 1469 
1415 QHOPTS =EQUX'‘28° PRINTER QUEUE HEADER 5 CALE) 1470 
1416 QHOPT6 =EQ X‘2A" PRINTER QUEUE HEADER 6 (ACE) wn 
1417 QHOPT?, «EQ OK‘2C' PRINTER QUEUE HEADER 7 (ACE) 1472 
1418 QHPTS €QU X'2E' PRINTER QUEUE HEADER 8 CALE) 193 
1419 QHOFDA «EGU K"30". SPINDLE A GUEUE HEADER (ACE) ; 1474 
16 1420 QHOFDB EQqU X"32" SPINDLE B QUEUE HEADER (ACE) 1475 
1421 QHOFDC EQU X'34' (7|__ SPINDLE C QUEUE HEADER 1416 
1422 GOFDD QU X36" 171 SPINDLE D QUEUE HEADER 147 
+7) 1423 QDIOA EU X'38' DISKETTE ACTIVE QUEUE (LE) 1478 
RESERVED 


1424 * Le! Ue 
145 ERCT 


RSION 08/2076 


gered | 
Ose e 
QHOCNLG _E 
qHoTRA 
DRFILK 
@0S08 
QOTUB 
QHocoM 


LUZ 


: 
e 
e 
E 
E 
E 
E 
E 
E 
QHDSILK 
e 
E 
E 
E 
€ 
€ 
€ 


» 
mm cst\m om cien o 


SPL/3 VERSION 08/2 
Ol] IF 00 LINE 

1486 _* 

1487 * 

® 

of 


COVPAINICAT IONS LINE 4 U6 1500 ICADCM 


CeDICAT ian Ladies 


: pene, | aR 

1463 * EQU X‘8E' RESERVED 

1464 QHDINQEX EQ X'90° INQUIRY EXIT QUEUE 

1465 QHDQUAIL EQ X"92" QUEUED ACQUIRE INTERFACE LIST CPL) 1520 * NOTE: 

1466 QHORPT EQU X"94' REMOTE PRINTER QUEUE (ACE) B 1521 * 

1467 QUSCT EQ X'9%6' SUBSYSTEM CONFIGURATION TABLE (PLD 1522_* 

1468 QHDTWAF] EU X'98" TWA EXTENSION F1 CHAIN ~ «FL ) 1523 

1469 QHDEXTRA EQ X‘9A' EXTENDED TRACE (PL > c 1524 * 

1470 oe Eu Xxx" SUBCONSOLE SYSLOG (PL) 1525_* 

47 EQ X‘SE* SUBCONSOLE REASSIGN (PLD 1526 * 

1472 HET Ew x"A0' ERROR INFORMATION BLOCK (ETB) yy 1527 * 
x 
i 


1473 QHDNSACE EQU  X‘A2" WS GET PAGE ACE (AED 1528 
1474 QUGIF EW OX'AS GENERAL LOGGING FACILITY PARLIST (PL) , 1529 
1475 QHDEXAM «EQU XAG’ EXAM QUEUE (NAS) 16 1530 * 

1476 QHOATI «EQ X‘AS' PRT TERMINATION INTERLOCK 1531 ICADICS 
1477 GDPOLH EQU OX" TULT SNA LINE INTERLOCK CAQE) 1532 * 

1478 GHOSPLK EQU  X‘AC' SPOOL FILE INTERLOCK ED V7 1533 ICADXTC 
1479 QWOX2] QU OX"AE* fTLA X.21 (PLE) 1534 % 
1480 * ——- TH —— 1535 ICADKFL 
131 * eM OX'BES RESERVED 1g 1536 ICAPKBS 
1482 SEND OF EXPANSION ** 
1483 


5 yor Tmo EW OK'40" + THIS TUB TS FOR A 960 CHAR SCREEN LS 3562 TUBATTAA EQU = TUBDE) 


UFEM'2 EQU__ X'20" «_ DISPLAY PAGE 2 OF MENU ON 960 3563 X90" 
3565 TUMNOFF EQU  X'20° 
TuBPHOLO EQU  x‘10° 
56 ® 
3568 ® 
3569 TUBSUBCN EQU _x‘08' 
FH 3570 TUBNCOUT £0 X'04a' 
peg FILE - SS y 3571 TUBNOSUB EQU  x‘02' 
REJECT FILE - peek Scraes 3572 joan X01 
REJECT FILE ~ RELATIVE DISPLACEMENT 9 3574 TUBORATX EQU — TUBNSG 
3575 SPACE 
B30 
DATE 61712708 TON 08/287 PAGE 28 TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/80 
Ol] IF 00 LINE 
1541 * EU X'0 
i tw XG, 
0 1543 * equ X'0! 
1544 * 
1545 ICADICDE EQU ICAL 
1546 * 
1547 teary EQU_ICA 
1548 ICANSDAT EQU. X'S 
1494 Teno. sus EQU ICADSYS+: 2 LAST SUB ID USED 04 BITS 1-7 RESER 
106 aaa TCADLSUB+] 1 SIZE OF ICF CQS IN 2k PAGES 1551 TCADSISC EQU ‘TCAt 
1497 * 05} 1552 * 
1498 ICADSSQS EQU _ICADM2KP+2 2 : EADER 1553 _ICADSIST EQU ICAL 
1499-8 ey 1564 * 
1500 ICADCNTR EQU ICADSSOS*1 1 —ICF TRACE INDICATOR 06 1555 ICADRESV EQU ICAU 
1501_ICAMLOTE a! LINE 0 TRACE ON CINTRA 1556_* 
1502 * RESERVED 1557 ICANLENG EQU = ICAL 
1503 * RESERVED 07 1558 * 
1504_* : RESERVED 1559 _*** END OF EXPANSIC 
1505 ICAMLATR EQU LINE 4 TRACE ON 1560 * ‘KBEQ 
1506 ICAML3TR EQU LINE 3 TRACE ON 08 1561 
1507 ICA TR "02° LINE 2 . ON 1562 RRARARARARARARARRARR 
1508 ICAMLITR EQU X‘O1" LINE 1 TRACE ON 1563 * 
1509 * 09 1564 * 
1510_ICADTRSV EQUI DCHTRe3 3. RESERVED FOR_ICF TRACE 1565 * 
1511 ® 1566 RRAAAAAARAKARARRRARA 
1512 1CAD3270 EQU ICADTRSVe2 = 2s ADDRESS OF 3270 CONTROL BLOCK 10 156? SPACE 
1513__ICAN3270 QU _X‘01' .__ FIELD_INTERLOCK 1568 JCBDINIT EQU 0 
4 * 1569 JCBRNTRA EQU  X"60 
1515 [CAQ0001 EQU ICAD3270+2 2: CONSTANT X‘0001' 1 1570 JCBMRUNG EQU  X‘40 
1516 * 71_* 
1517 ICADTRA® EQU  ICADOO01+2 2 ADORESS OF ICFON TRACE ROUTINE me ScareiTeR @w x2 
1518 * 
1519_ICADTRST EQU _ICADTRAR+] START OF ICFOM TRACE ROUTINE 1574 JCONINHT EQU_X*10 
1520 * NOTE: THE FOLLOWING AREA IS THE ICFON TRACE SUBROUTINE WHEN 1575 CORT EQ X"08 
TRACE IS NOT ACTIVE. ITS FUNCTION IS TO ADD 1 TO THE ARR 1576 SCBRMOSC FES X"04 
(TO SKIP QVER PARA BYTE) AND RETURN TO CALLER. 1577 SCOMLOS EQU _X"02 
SPACE 1578 SOOMILDS EQ X01 
L 1, GXR2)_,XR2 XR2 --> WSPL 14 1579 SPACE 
A__ICADOODIC, 1). ARR INCREMENT ARR - SKIP OVER PART 1580 SCBDINT2 EQU JCD 
ST  ICADTRRTC.KRID.ARR STORE RETURN ADDRESS 1581 JICBAREGN EQU X*80 
Ls WOTUBC,XR2).WR1 AR —> SUB 15 1582 JCBMRLCL EQU  X"40 
Bf RETURN TO CALLER 1563 JCBPHIPR EQU X‘30 
1529 TCADTRAT EQUTCADTRST «16-1 16” END OF ICFOR TRACE ROUTINE 1584 SCHYDPR EQU X"20 
1530 * 16 1585 JCBPLOPR EQU  X"10 
1531_ICADICSV EQU _ICADTRRT+12 12 RESERVED FOR ICFOM TRACE 1586 * 
1587 SCBMIPRC EQU X*08 
ICADICSVe2 =s-2:—s TCB ADD& OF ICF TRANSIENT OWNER 1 1588 JCRMUSLB EQU  x"04 
1589 x 
ICROXTCH*1 =< ~~=@FLAG BYTE 1590 SCORES EQU  X"G2 
ICF TRANSIENT AREA BUSY 1g 1591 SCOORIP EQU X‘O1 
WAIT ON ICF TRANSIENT WAIT REQUEST 1592 SPACE 


g 
a 
| 


19 1594 SOOPPUCL EQU "80 


"ASSIGN WOSUB ACTIVE ON THIS DEVICE 
_ PERCU READ PODIFIED 


ADDRESS OF SURCONSOLE HATRIX 


831 


1549 * 


1555 ICADRESV EQU ICADSIST+11 11 RESERVED 
1556 & 


1558 s 
1559__*** END OF q2 tell iia 


1561 


1562 ®RRAAAAAAAAARAAAARARARAARARAARRARAARARAARAAAAAAAARARAARRARRARRALRARAARR 


oy ses * 


J0B CONTROL BLOCK . U? 
1565 * ® 
1566 RARRARARRARRANARARRARRARARRARRARARERRARRRRARRRRAD : ARRRRRRRRRR 
10 1567 SPACE 10 
INITIATOR SWITCH BYTE 


1568 ti 0 
1569 JCBRNTRA E IN INTRA MODE CLOAD STATEMENT RECEIVED) 


l 80 
1570 “comune Ew x"40° PROGRAM RUNNING (BETWEEN RUN STATEMENT AND 


1571 
3 "20° 

1573 * 
1574 JCBMINKT EQU  X*10° IGNORE NO-HIST PADCEDURE ATTRIBUTE 
1575 KOOPRT EQU xK'0e" THIS 15 A c 
1576 JCOPNOSC Fie! X‘04" NO SOURCE REQUIRED 
1577 JCOMILDS. EWU x02" LOAD STMT RECEIVED THIS SESSION 
1578 KOM EW XO LOAD STMT RECEIVED THIS Jos 

14 1579 once 14 
1580 JCBDINT2 EQU JCBDINIT+1 _ INITIATOR SWITCH BYTE TWD 
1581 JCORREGN EQU K*80° JOB REGION RECEIVED 

19 1582 JCBMRLCL EQU  X‘40° LOCAL DATA AREA IS IN STORAGE y 
1583 JCOMHIPR EQ X‘30' HIGH PRIORITY HAS BEEN SPECIFIED 
1584 KONPOPR EQ «x‘20° TEDIUM PRIORITY HAS BEEN SPECIFIED 

16 1585 JCBMLOPR EQU  X‘10° LOM PRIORITY HAS BEEN SPECIFIED 16 
1586 * ‘30° BITS OFF = NORMAL PRIORITY 
158? KGMIPRC EQ x"08° TN A PROCEDURE 

1 1588 JCOPUSLB EQU  x"0s" PROGRAT! CJCBDPROG) WAS FOUND IN USER 1 
1589 _* LIBRARY CICBDCRLB) 
1590 SRS EQU x"a2" EMREUE RESOURCES WITH MEP ATIRIGUTE 

18 1591 JCRPARIP EQ X‘OI" WRT PROGRAT 2 
1592 SPACE 
1593 SCROSCH] EQ) JCRDINT2*1 SCHEDULER BYTE OE 

19 1594 JCOPUCL EQ x"S0" PROGRAM HAS UTILITY CONTROL STATEFENTS 19 
1595 JOBMREF EQU = X"40 RON OXREF AT TERMINATION 


1607 JCBMPNEP EQ 


1611 JCBMINGP EQ 
1612 JCBANONT EQ 
1613 SPI 
1614 JCBDSCH3 EQ 


1615 JCBRSEO EQ 


1616 JCBMSOFF EQ 
1617 JCBRSPRT EQ 


SSRTEEE 


dd 


3728 _XFERCTL eux 
29 ~XNTPRIV EQU  X‘20' 
3730 XNTAREAS EQU = X‘08' 
3731__XNTAREAE EQU X'OF* 
XFERTAON E X'08° 
3733 XFEREAON EQU  X'04' 
3734 XFEREBON EQU X‘02' 
EQ x'o1' 
RERAARARRARAAARRRRARS 
3737_* 'SYSTEN' TRANSIENT 
RARRRRARAARRARRARRRRA 
RRSVDOO EQU  X'00" 
RFIND = EQU X'‘01' 


LOGICAL {/0 RESERVED AREA (34-44) 
1 ~ OF See aes 


TAG 56- TRANSLATE TABLE AREA 
TAG 57- DUAL MESSAGE ROUTING AREA 


B33 
DATE 61/12/08 SPI VERSION 08/26/00 ; PAGE 31 Ife 02:1 DATE 91/12/06 SPL/: RSION 08/28/80 
Ol} If 00 LINE ‘SOURCE Ol] IF 00 LINE 
1651 SPACE 1706 SPACE 
1652 JCBOCRLD EQL STe2 T Fi POINTER 1707 JCBONFTF EQU JCB 
02 1653 JCBOFSBL EQU JCBOCRLB+2 LIBRARY FSB CHAIN POINTER 0 1708 SPACE 
1654 SPACE Peete 1709 JCBDFINA EQU JCB 
1655 JCBOFSGF EQU  JCBOFSGL*2 FILE FSB CHAIN POINTER ara 1710 SPACE 
0! 1656 SPACE 0: 1711 JCBDOCIBa EQU JCB 
1657 _JCBOWSBP EQU JCBDFSBF+2 —_WSB CHAIN POINTER 1712 SPACE 
1658 SPA 1713 JCBDOTFa EQU = JCB 
04 1659 JCBOPSBP ead JCBOWSBP+2 = PSB CHAIN POINTER 04 wu SPACE 
1660 SPACE 1715 _JCBDSLLR EQU _ JCB 
PRC EQ CB : 1716 SPACE 
ped cpg cn 1717 JCBDDFRG EQU JCB 
THIS JCB IS POIN'ED TO BY THE MRT'S TCR) 1718 SPACE 
1719 JCBDJBRE EQU = JCB 
1720 SPACE 
1721 JCBDMENF EQU JCB 
i 1722 ~JCBDJQST EQ JB 
WAITING FOR PRINTER 1723 JCBDSPID EQU JCB 
WALTING FOR COMMUNICATION LINE 1724 SPACE 
1725 JCBDJOBN EQU «= JCB 
WAITING FOR DISK SPACE 0 1176 SPACE 
INITIATOR WAITING FOR RESOURCES 1727 JCBDSCHS EQU JCB 
1728 JCBDLANG EQU = JCB 
HALT PENDING TO SYSTEM OPERATCR 1729 JCBMSYLB EQU X'S 
FILE EXTENSION IN PROCESS 1730 JCBMSUNG EQU X'4 
1731 ~SCBALST EQU X'2 
10 1677 JCBDRGSZ EQU JCBDSTAT+1 © REGION SIZE (STEP) 10 1732 SCORN EU X'1 
1678 SPACE 1733. JCBMI'CP EQU XO 
1679 JCBOCTAG EQU = JCBORGSZ+1 © CURRENT TAG IN PPSA 34 =* eu X*O 
i - 1680 SPACE 11 1735 * EM OX'O. 
1681 JCBOSLOB EQU  JCBOCTAG+2 —SYSLIST I08 ADDRESS 173% * EW XO) 
1737 SPACE 


1786 SOPEIBQ EQ X‘O! 
a SPACE 
1748 SCBOCSBP EQU = JCB 


1714 ‘SPACE 

1755 = SSUNTH EQU OBI 
175% SPACE 

1757 *ARRARsccn eRe 
758 * 

139 * 

1760 * 


aU rab 


ee eo 


3728_NFERCTL 


FIRST SECTOR IN 


3730 XNTAREAS EQU  X‘08" 

3731_XNTAREAE EQU X'OF' LAST SECTOR IN TRANSIENT AREA (HIGH) 
x'08" I I 

3733 XFEREAON EQU  X'04" SET EA ON TRANSFER CONTROL 

3734 


SET EB ON TRANSFER CONTROL 
: PROTECT CNON-PI 
3736 RRRRARRARARNARRRAARRERAARARARR! RERARRERAAARARAARAARERARRARARRRARAR RAR 
3737_* ‘SYSTEM’ TRANSIENT RIS EQUATES C(I.E., IMPLICIT DISK ADOR, LENGTH) 
RARARRARRARARARERD 

RRSVDOO =EQU  X'00" 
REINO EQU X‘01' 


i PL7 RSION 06726760 PAGE 32 ‘TIME 2:15 DATE 61/12/08 
Ot] IF DO LINE SOURCE Ol IF 00 LINE 
1706 SPACE 1761 

saa a 7 1762 

02 1763 

1764 

= 1710 SPACE 1765 
0 1711 JCBOCIBA EQU JCBDFINA+2 ADDRESS OF COMPILER INFORMATION BLOCK 03 1766 
1712 SPACE 1767 

) ‘WeOOC bar? ADORESS OF FIRST OTF ON CHA’ 1768 

114 4 1769 
1715 JCBDSLLR EQU _JCBOOTFA+1 —_SYSLIST CRT LINES REQUESTED 1770 

REGION SIZE (DEFAULT) un 

1773 

BDJBRE 1774 

1775 

1776 

00051 Ta 

1723 JCBOSPID EQU © JCBOJQST#+2 SESSION PRINTER ID (RELEASED WS JOBS) 1778 

SPACE 1779 

“RON QU KOEN SE TINE STA) COC~C“<‘ CSS 1780 

! SPACE 8 1781 
: 1782 

1778 JCSOLANE EGU EBOSCIE SAGE COMPILER BYTE ue 

09 1729 JCOPSYLB EQU x80! SEARCH SYSTEN LIBRARY ONLY 09 1784 
1730 JCBRSLAG EQU_X"40' SYSLIST END MESSAGE REQUIRED 1785 

173) JcOrL ST EQU X'20° LIST RPG 1786 

10 1732 JCOMWEAT EU xX"I0° SYSLIST ‘NOEXTN' SPECIFIED 10 1787 
1733 JCeMI.CP EQU X‘08° 15 CPI SPECIFIED ON FORMS STATEMENT 1788 

14 * fu KO is 

ll 1735 * equ x‘02" li 1790 
17% * ew@ xo 1291 

137 SPACE 1792 

7 1738 JCsDSCH4 EQU © JCBDLANG?!] © SCHEDULER BYTE FOUR 17 1793 


1738 OMTPLK EGU X"80° JCB TERMINATION INTERLOCK 
174) -SMFLIS EQU = X"40"  2=S*S*S*SLUSH MIME SOEs=“‘CS;OS*~*~*# 
1741 /cHPPGIS EQU X'20" PROGAAN HAS INLINE SOURCE ji 

1742 SCRMINTK EQ X*10" INITIATOR DID WOT ER:iIATE THIS TASK 
17 A RGR EQU X08" SECURED RESOURCE ALLOCATED BY THIS PRT 

14 1744 SEWwR EU OX'O8" EVOKED PROCEDURE 1 
1745 JCBMSPCK EQ X"02" SET SPOOL FILE EOF AT LAST CHECK POINT 
17% SOEIea EW XO ERROR INFOMATION BLOCK PRESENT (EIB) 


RSION 08/28/80 


U3" 
RICOC § EQU. X'34" 
RSVTX QU _X'35' 
EO 4°36" 
EQU. X'37" 
EQU_X'38" 


RRAAAAERRERAARRARKA 


SPACE 1 


JCBDSSBa EQU 
JCBOCCBA_EQU 
SCBOPLST EQU 


1 
JCBD 
JCBD 


SPACE 1 


JCBOLPI# EQU 
SCBMALPI EQU 
SCBMOLPI EQU 
JCBMBLP I EQU 


CDar 


JCBDERSV EQU 
JCBDELNG EQ 


ICBO 


K'04 
X'06 
X08 
1 

JCBD 
JCBD 


*R® END OF EXPANSIO 


- WICEQ 


RARRAAARARRARARRAAK 


RARAAARARARAAARAARARRAK 
RAAAAAAAARARAARREAAAK 


RARAAAKAARAAAAARRAA: 


* 0000 FIXED NUCL 


RRARARRRARARARRARAA 


COMMAND OCL_ INTERFACE, 
1/0 ERROR TRANSIENT 
EDF EXTEND TRANSIENT 
EDF UPDATE TRANSIENT 


ICF (CVC) 

ICF (CVC) 

TWA EXTENSION 
; SORT TRANSIENT 

EXTENDED TRACE 

WSDM_ TRANSIENT 


B35 


f 3 : SPL/3 VERSION 08/28/80 
eony 01 SOURCE Ol] IF 00 LINE 

1816 * 
1817 * 0370 =~ DISKETTE 

SESSION SPECIFICATION BLOCK POINTER 1818 * 
CHECK POINT CONTROL BLOCK POINTER 1819 _* 0360 __ ERROR TA‘ 

1765 JCBOPLST EQU = JCBOCCB&*2 = PHONE LIST CHAIN POINTER 1820 * 
1766 SPACE 1 ; 1821 * 0390 DISPATCH 

1767 JCBOLPI@ EQU ACBDPLST*+1 —sLP1_ VALUE 1822 _* 
Pr equ x‘04" 4°LPI SPECIFIED ON FORMS STATENENT — 1823 * 0398 MIDNIGHT 

4 1769 JCBMGLPI EQU. X°06" 6 LPI SPECIFIED ON FORRS STATEFENT é 1824 * 
1770 JCOMBLPI_EQU 8 LPI SPECIFIED ON FORTS STATENENT : 03A0_ STATISTIC 
* O38 SOS FAIL 

2 
EN ® 0380 ERNINAT| 

f * 

end = r = 
‘ * 0360 PERMANENT 

c ® 
rz i35 * OO IAL AOSIG 

.. ‘ 2 
* 0700 TRACE Lx 
enema * 0700 ALTEVDIS 

26 _ : _ oF 

: *® 0700 FL FORD 

t * 
1795 * 0280 TAK WOK AEA IMEX G03 

: 1% * 
179]_* 0203 TASK WN AREA QUE WOR 0005 
16 * 


se} e 8 ale ee 


19 


B36 


U 


LINE 


1627 * O3A8 = SQS FAILURE TQE 
1626 * 


1829 * 0380 TERMINATION DUYP [08 0020 32 NUBDPIOB * 
1830 * ® 
1631_* 0300 TERMINATION DUMP ACE 0010 16 NUBDPACE * 

8 2 ® * 
1833 * O3EO PERMANENT SWAP ACE 0010 16 NUGSPACE * 
1634 * x 
535 * 03FO IPL ASSIGN/FREE AREA 0310 784 NUBIPLAF * 
1836 * ‘2 
1837 * 0700 TRACE LOGOUT BUFFER AND 0100 256 NUaTRBUF * 
1838 * * 
1839 * 0700 ALTER/DISPLAY WORK AREA  00CO 192 NUAADURK * 
1840 * nN oe nN A ® 
1841 * 07CO —IMPL ERROR LOG SAVE AREA 0040 64 NUBBAD2K * 
1842 * x 
1843 _* 0800 MS _TRANSIENT AREA 0800 2048 NUaXTENT * 
1844 ® x 


1845 RKARKRAAARERRKRAKARAEARARRARAKRAAARARAAARRARKRAKRKAAAARRARAARRARRERAARARRARRARK 
1846 RKKRERRARAAKAAARKRAARAARARAARARAAAKARAAARRAAAAAARRAARARKARAARRAKRKARERRARAKKK 
1647 * 7000 VARTABLE NUCLEUS NOVARNUC 
1848 RAKARARAAARARARARAAAKRARRARAAAAAAAARRAAAARAKAKAARAAAARRKKRKRAAKRARRARRARRAR 
1849 RRAKRAKRAKRARRKAARAARARRARARAARAAKAARAARAAAKRAAERAAARAARAKRARRAARERRARAARKAN 


1850 * 2000 LOAD ADORESS FOR IPL DISKETTE NUALOADI * 


185]  RAAKAAAAARAAAAARARAARARARAARARAARAKHAAAAAAAAAKKL *RAKRARLUKAAARARLAARAK 
RRARRRKRKAARAARAARARAKRAKRARAAAARAKARRARRAARARARAKRARAAARAKK ARKARARAARARRAAK 


1855 NUFIXNUC EQU__X'000" MAIN STC=iac NUCLEUS ~ FIXED AREA 


1857 NUBSCA = EQU NUFIXNUC 
1858 NULSCA  EQU 256 


SYSTEM COMMUNICATION AREA 
* __CLENGTH OF AREA) 


1860 NU@ACEGH EQU NURSCA+NULSCA SYSTEM QUEUE HEADERS 

1861 NULACEQH EQU 192 * _CLENGTH OF AREA) 

1862 * 

1863 NUAMPIOB EQU = NURACEQH*NULACEQH MULT.-PURPOSE [0B 

1864 NULENIOB EQU 32 ® _CLENGTH OF A DISK 10B) 
1865 * 

1866 NUACXIOS EQU NUaMPIOB+NULENIOB CS TRANSIENT LOADER 108 
1867_* 

1868 NUACPTCB EQU NUBCXIOB+NULENIGS COMMAND PROCESSOR TCB 
1869 NUACPTAH EQU = X*02* COMMAND PROCESSOR TCB CHIGD 
1870 NULCPTCB EQU 128 ® _CLENGTH OF AREA) 


3875 | MORAL aE 
oat a 
ar 8 DTWEOOOSX 
DTI SH 0, 2).0 
+ “Sig 
3380 SVC SVOGPOST, 
3381 O —- ALICTCRSU 
$88 OC) 
3883 **"" END OF EXPANSION ** 
aR the Bi" Ui 
3806 DTVACHAN EQU | ~DTWRELI-3 
3887 OTWASS = EQU _DTUACHANs 
3a DTWETT EQU  DTURSS +1 
- SRSTON TTIRTES 
Ol] If DO LINE 
1926 * 
ara 1927 NUAXTENT EQU 2048 
AREA)(280 ENTRIES) 02 1928 NULXIENT EQU 2048 
5K WORK AREA INDEX (RIGHT) 1929. * 
1930 TRBUF EQU 256 
03) 1076 * =6NOTE: TASK WORK AREA SPACE IS INDICATED BY 8 TRACKS PER 0 1931 NUBTRBUF EQU NUAXIE 
1e77_-* eyTe. RIGHT BYTE INDICATES THE START OF THE TASK 1932 * 
1 WK AREA ON TIE DISK. 1933 NUGADURK EQU  NU@TRB 
Of 1934 NULADURK EQU 192 
1935 * 
B81 A 1936 NUABAD2K EQU NUaTRE 
05) 1882 * 1937 * 
1883 108 Nua SYSTEM DISKETTE I0B/LOGOUT AREA . 1938 NULIPLAF EQU NU@TRB 
1684 TOE EoD 56 4 CLENGTH OF AREA ee 7 2 1939 * 
OF 1885 R 1940 ARRARKKARARRAAAAARARRAR 
NUARDIOB+NULRDIOB #LIBRARY RESIDENT FORMAT-1 1941 * 
LENGTH OF AREA) 1942 EQU = NUaXIE 
07 1943 * 
1889 NUATRACE EQU _NUBOLBF1+NULSLBF1 TRACE LOGOUT ACE 1944 _NUaMSSQS EQU __NUVARN 
1690 NMULACE EQ 16 ® (LENGTH OF AN ACE) 1945 NULMSSQS EQU 4096 
08 1691 * 1946 * 
1892 NUBERACE EQU  NUATRACE*NULACE ALTERNATE SECTOR ACE 1947 NUALOADI EQU NUNS 
1693 * 1948 * 
09 1894 NUALGACE EQU NUBERACE*NULACE STATISTICAL LOGGING ACE 1949 **® END OF EXPANSION 
1895_* 1950 * PPSEQ 
1896 NUATIACE EQU  NUALGACE*NULACE INTERVAL TIMER ACE 1951 RRARRRRRRRRRRRARRTRR 
10 1897 * 1952 * 
1898 NUAMACE EQU NUATIACE*NULACE MSP PROC CHECK ERROR HANDLER ACE 1953_* T 
18699 * 1954 * 
11 1900 NUASWACE EQU  NUAMACE+NULACE ACE FOR SWAP 108 1955 *RARMRRRARRRAARRARARD 
1901 * 1956 SPACE 
1902 NUPIKACE EQU  NUASUACE*NULACE ACE FOR 'S XIENT SCHEDULER 1957 PPSTAGID EQU 0 
12 1903 * 1958 SPACE 
1904 NUATEACE EQU  NUAMKACE+NULACE ACE FOR DISKETTE ERP 1959 PPSFLAG] EQU _ PPSTAG 
1905 * 1960 PPSCPBIT EQU  X'80° 
1 1906 NUACSETC EQU  NUSTEACE*NULACE CS TASK-TASK ERROR ACE 1961 PPSEOFSG EQU x‘40° 
1907, * 1962 PPSNOLOG EQU  x‘20° 
1908 NUBDSTQE EQU NUSCSETC*NULACE DISPATCHER TOE 1963 SPACE 
14 1909 NULTOE EU 8 *® — (LENGTH OF A TQE? 1964 PPSSGREG EQU PPSFLA 
1910 * 1965 SPACE 
1911 NUMNTQE EQU  NUBOSTOE*NULTOE MIDNIGHT TOE 1966 PPSPRGIM EQU  PPSSGB 
5 wiz * 1967 PPSPRGZM EQU — PPSPRG 
1913 NUBDLTQE EQU —_NUAMNTQE*NULTQE STATISTICS DATA LOG TIME Q ELEMENT 1968 PPSUSRIM EQU _ PPSPRE 
ia * 1969 PPSUSR2M EQU  PPSUSR 
16 1915 NUBATOE EQU NUADLTQE*NULTQE ASSIGN/FREE FAILUTE TIME Q ELEMENT 1970 PPSPRGIL EQU  PPSUSR 
1916 * 1971 PPSPRGZL EQU  PPSPRE 
1917 NOSOPIO® EQU  NUSATQE*NULTQE TERMINATION DUTP 108 1972 PPSUSRIL EQU  PPSPRG 
1 1918 * 1973 PPSUSRZL EQU  PPSUSH 
1919 NUBDPACE EQU  NUADPIOB*NULENIO8 TERMINATION DUNP ACE 1974 SPACE 
1920 * 1975 PPSLIBRA EQU  PPSUSR 
18 1971 NURSPACE EQU — NUBDPACE+NULACE PERMANENT SUAP ACE 1916 SPACE 
; 1977 PPSSGEDa EQU 


1922_* 
1923 Nual 


DIMOU AN INL, 17,01 WO0 20010, 1) UUUOLE 
OTwn020¢ 


BYE 


1,1) DECR. INDEX LENGTH 


nya 


3877 
3878 


ol) CHECK NEXT ELEMENT 
MARK TRACK FREE 


2B 


B§ D AL1C0) 
3863 **** END 


OF EXPANSION ** 


CHAIN ADDRESS 
S$ VALUE 


C02 


01 


02 


yy 
1928 NULKIENT EQU ‘LENGTH OF AREA) 
1929 
930 NULTRBUF EQ 6 LENGTH OF TRACE BUFFER 
1931 NUATRBUF EQU = NUAXIENT-NULTRBUF TRACE LOGOUT BUFFER 
1932, * 


1933 NUBADWRK EQU — NUATRBUF 


03 


ALTER/OISPLAY WORK AREA 


04 1934 NULADWRK EQU 192 ® (LENGTH OF AREA) 04 
1935_* 

c 1936 NU@BAD2K EQU NUATRBUF+NULADWRK IPL STORAGE ERROR SAVE AREA 

0 1937 * 0 
1938 NULIPLAF EQU NU@TRBUF-NU@IPLAF LENGTH OF IPL FREE AREA 
1939 
1940 RARARARARRAAAARAKAAARAAKARAAKARAAKAARKAAAARAAAAAARAARARRAKRARRARAAAAARKKERRARR A O6 
1941 * 
19 NUCLEUS - VARIABLE AREA 


FIXED NUCLEUS FREE AREA #2 
1945 NULMSSQS EQU 4096 DEFAULT LENGTH FREE AREA #2 | 


1946 * 09] 
1947 NU@LOADI EQU  NUaNMSSQS*NULMSSQS LOAD ADDRESS WHEN IPL DISKETTE 
1948 * 

| 1949 *** END OF EXPANSION ** OF; 
1950 * PPSEQ 01030000 
1951 RERRARRARRAKARARRAARARAKARAARAAK KAKA AKRRAARRRAKRARKARARARRARRARRARRAARARAKAK 
1952 * x 10 
1953_* THE PROCEDURE PARAMETER SAVE AREA 7 
1954 * 7 
1955 RARARARRARAARAAAAKRARARRAARARAARARAARRARARAARAARAAARAARERRRAKARRAKRARKARRREAAARKK AK ll 


1956 SPACE 

1957 PPSTAGID EQU 0 SECTOR TAG FOR TWAG/TWAP 

1958 SPACE 12 
1959 PPSFLAG] EQU PPSTAGID+] —_ FLAGE BYTE 

1960 PPSCPBIT EQU  X*80° PROCEDURE IS SCP 

1961 PPSEOFSG EQU X'‘40° EOF RECEIVED FROM SOURCE GET 13) 
1962__PPSNOLOG EQU X'20° 00 NOT LOG TO HISTORY FILE 

1963 SPACE 

1964 PPSSGREG EQU PPSFLAGI+2 — SOURCE-GET BEGINNING ADDRESS 14 
1965 SPACE 

1966 PPSPRGIM EQU  PPSSGREG*+2 PROGRAM MESSAGE MEMBER a SAVE AREA 

1967 PPSPRG2M EQU PPSPRGIM*2 — PROGRAVIZ MESSAGE MEMBER @ SAVE AREA ) 
1968 PPSUSRIM EQU  PPSPRGZe2 USER] MESSAGE MENBER @ SAVE AREA 

1969 PPSUSR2" EQU PPSUSRIN*2  USER2 MESSAGE MEMBER a SAVE AREA 

1970 PPSPRGIL EQU PPSUSR2M+2 PROGRAM LIBRARY Fl @ SAVE AREA 16 
1971 __PPSPRGZL EQU PPSPRGIL*2 —_ PROGRAM LIBRARY F1 @ SAVE AREA 

1972 PPSUSRIL EQU  PPSPRG2L*2 USER] LIBRARY Fl a SAVE AREA 

1973 PPSUSRZL EQU PPSUSRIL*2 — USER2 LIBRARY F1 a SAVE AREA / 
1974 SPACE 
1975 PPSLIBRA EQU PPSUSR2L*2 CURRENT LIBRARY Fl @ SAVE AREA 
1976 SPACE 1g 
1977 PPSSGED EQU  PPSLIBRA®3 — SOURCE-GET END 
1978 PPSSSCRT EQU PPSSGEDa+3  SOURCE-GET CURRENT ADDRESS 

1979 PPSCRT] €QU PPSSGCRT-2  * FIRST BYTE OF CURRENT ADDRESS 19 


1980 PPSCRT2 EQU  PPSSGCRT * 2NO) 3R0 BYTES OF CURRENT ADDR 


SCPR 12/07/81 11:51 


min RD mefee 


RCGLARL EARL“ 20R 
XR2->TUBATTR2=0F | 
XR2->TUBATTR2= 0 
IF SCADCPS2(1: 1): 
00; 
REGCXR2)=XR2-> 
IF 72ERO, REGCXI 
XR2-> JCBDUPS I: 
END; 
GEN; 


SVC SVCXIEt 
OC AL2CNIF 
GENDGEN; 

GENCTITLE ‘#SCPR_ - 


i* 


[RRERRERAARARAAAARRS 


/* WAIT FOR FILE REBL 


SPL/3 VERSION 08/28/80 


TF 00 LINE 
1981 


PPSSGBUF EQU PPS: 
PPSSGLNR EQU PPS: 
SPACE 
PPSUPSI EQU PPS! 
SPACE 
PPSPNANE EQU  PPSI 


PPSVARO4 EQU —PPS\ 
SPACE 

PPSVAROS EQU _ PPS\ 
SPACE 

PPSVAROG EQU  PPS\ 


PPSVARIO EQU = PPSV 
SPACE 

PPSVARLI EQU  PPSV 
SPACE 

**® END OF EXPANSIO 


hal 


om 
o 


Besee gs 


‘SPACE 1 


2010 *** END OF EXPANSION ** 
2011 * RWPL 


VARIABLE 11 


01040000 


O12 * REMOTE WORKSTATION TUB PROCESSOR TRANSIENT PARAMETER LIST 


2013 RAKKAAAAARAKAAKRARAERAARKRRA KA ARAAARKRERRAARARAKKARARKAAARARARAARARARARK 


2014 * 00 ® Ql *® 02 3. 
REQ*® RC 


2018 * 


2019 RARKREKRAARRRAARKAARAARRARRARRARRARRARRARAKAAKKAAAARKAARAERARRARAKRAKAAARARK 


2020 SPACE 1 
2021 RWPLREQ EQU 0 
2022 SPACE 1 


REQUEST BYTE. 


2023_* VALID REQUESTS FOR THE REQUEST BYTE. 


2024 RWPLON EQ X'O1' 
2025 RWPLOFF EQU X‘02' 
2026 RUPLAUT EQU X'04' 
2027 RWPLGAT EQU  X'20° 
2028 RWPLCHK EQU X‘40’ 
2029 RWPLTUB EQU  X‘80' 
2030 SPACE 1 

2031 RWPLRCD EQU  RWPLREQ+1 
2032 SPACE 1 


VARY ON. 

VARY OFF. 

AUTO VARY ON. 

GET ATTRIBUTES. 

CHECK VALIDITY OF THIS WS ID. 
BUILD OFFLINE PRINTER TUB. 


RETURN CODE. 


2033 _-* RETURN CODES FROM #RUVY 


2034 RWPLSUCC FQU  X'00' 
2035 RWPLNOSP EQU X'O1' 


SPL/3 VERSION 08/28/80 
IF DO LINE 
0001 PL 
0002 «GEN; 


01 


0003 fSCPR TITLE “@NSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION’ 00030000 


SUCCESSFUL PRINTER/WS/BOTH. 
DEVICE NOT SUPPORTED. 


PAGE 1 
SOURCE 
00010000 
00020000 


Ol] IF 90 


DATE 81/12/08 


2050 RVPLATTR EQU = RVPLUSIDe1 


2061 


2062 
2063 
2064 
2065 
es 


7089 RRR END OF EXPANSION ** 


2070 


m QW X'10' 

RWPLSLN4 EQU  X'08" 

RWPLSLN3 EQU X'04' 

PLSLN2 EQU X'02' 

RWPLSLNI EQU  X'01' 
see u 


PLLEN PLLINE*1 


SPACE 1 
i] SCAEQ 


ATTRIBUTES CFOR GET ATTRIBUTES) 


RESERVED 
RESERVED 
RESERVED 

LINE 4 

LINE 3 

LINE 2 

LINE 1 


LENGTH OF PLST 


SYSTEM COMMUNICATION AREA EQUATES 01050000 


2071 RARAAAAKRAKRARAARKAAAAARARRAKAAKARAAKAAAKAKARAARAARAKRA RRA ARAAAAAA AKA 


2072 
2073 
2074 
2075 
2076 


SYSTEN 


® COMMUNICATION AREA 


x 


2077 RRRKKRARKAAARAARRARAARAARAKRAARKARARAAAAAARRARAARKKAAERRARAAAAAAARRARARRK 


2078 
2079 
2080 


2081 SCADDMIC EQU  SCASYS+1 


2085 SCADXSVC EQU = SCADPSVC+3 
2086 SCADSSVC EQU = SCASYS+5 


2087 


2088 SCANSIZE EQU SCADSSVC+1 


2089 
2090 


0056 * 
0057 * 
*/* CHANGE ACTIVITY - @rSCPR 
0059 * ala INCR - P10402 
0060 * aa478 INCR - PIO807 


0058 


SPACE 
SCASYS EQ 0 


® 


® 


SCANZ56K EQU  X‘80' 
SCANI28K EQU X'40° 


TABLES = 


OMSi * 


BEGINNING OF SYSTEM Comm 


ABNORMAL TERMINATION ERROR MIC 
(WILL BE SEEN IN DUMP AREA ONLY) 


DUMP SVC CLEFT HAND ADDRESS) 
3 TRANSIENT EXIT SVC CLEFT HAND) 
SYSTEM SVC AREA 


MAIN STORAGE SIZE IN 2K BLOCKS 


X"80" - 256K MAIN STORAGE {R7] 
X*40° - 128K MAIN STORAGE 


PAGE 2 


cs 
X.21 FEATURE 


TIME 02:15 


DATE 81/12/08 


SPS VER 
Ol IF 00 LINE 
2091 
20% 
2093 
2094 


XR1~> JCBLUNTH- 


TON 08/28/80 


SCANS96K EQU X 
SCANS64K EQU X 
SCANS48K EQU Xx 
SCANS32K EQU X 
® 

SCA2KBAD EQU S 
SCA2KOK EQU xX 
*® 


SCADSPIa EQU SC 
® 
SCADCFS2 EQU SL 
® 
SCAM2KMS EQU SC 
R® 


® 
x 


SCANS#2K EQU SC 
R 
SCAMAXRG EQU SC 
% 


SCASDISK EQU SC 
SCAMDUAL EQU X' 
SCA2SPIN EQU X' 
SCA3SPIN EQU xX’ 
SCA4SPIN EQU X' 
SCADKCFG EQU Xx’ 
® 


* 
RRARAAARAARRAARAAKA 


* THE FOLLOWING D 
* CAPACITY DISK, 
ARARRARARAARRARRR 
SCADSKS EQU X' 
SCADSIZ EQ X' 
x 


x 

SCANZ7NG EQU X' 
SCANNING EQU 1 

SCAMIONG EQU 0 

x 


RRARARRAARKARRARRA 


* THE FOLLOWING D 
® CAPACITY DISK, | 
RAARKKRAAERKARRAK: 
SCAM62PC EQU x" 
SCANGSIG EQU x" 
SCAROGS QU X" 
Scami3on EQU x" 


32 am IO 
32 2) JOMOTE 
ws Se Ts 
32 6 A2-> SOUONGS2: 
3.2 am REGCHIN )=SON 
st Ae TTC 
32 onw Pf 
32 ep tannnnnannnennnns 
i Mer re ee 
32 410] femmes 
3240 7 
ASSO “RESTON REGU wt. ii 
OC = AL 2CJCBLLNTH) ASSIGN Li 32 a4 * #6SIN LEW 
ATTRIBUTES 32 4105 wu SG 
: 430 iy m9 
32 407 Cc MK 
32 4108 *** END OF EXPANSIO 
DAI 08 
: 
09 j x5 ORAGE S147 SCSI EQN) 
2093 SCATS48K EQU X'18' ’ x18" 2148 * 
2094 SCANS32K EQ X'10" = 32K MAIN STORAGE as sors ‘UZ 
7m 5 SCRALTO EQ) 
2096 =SCA2KBAD EQU SCANSIZE*2 92 ADDRESS OF BAD 2K BLOCKS SAVE 251 * eu) 
2097 SCA2KOK EQ *0000' . NO BAD 2k BLOCKS 2152 SCANSPGP EQU 
709 183 SCART EQ 
2099 = SCADSPIA EQU SCA2KBAD*2 8962 SPOOL INTERCEPT STORAGE ADORESS 4 2154 * 
2155 SCAMCRAN EQU) 
156 * 
2157 SCAMJQHD EQU ) 
2158 * 
2159 SCAUOFM EQU Xx 
2160 * 
2161 * 
107 SCAMGA2K EQU SCAMZKMS+] = 1 2K BLOCKS OF USER STORAGE 2162 SCAMSPB EQ Xx 
2108 * 2163 * 
2109 SCAMAXRG EQU  SCANS#2K+] 1 SWAPPABLE TASK REGION SIZE 2164 SCADCFG2 EQUUS 
2110 * 2165 SCAMCNAT EQU Xx 
2111 SCASDISK EQU SCAMAXRG+1 = 1 DISK CONFIGURATION 3 2166 SCAMPWSF EQU Xx 
2112 SCAMDUAL EQU _X'80' A MULTIPLE SPINDLE DISK {R71 2167 SCAMJOBQ EQU X 
2113 SCA2SPIN EQU = X'80' ‘ 2 SPINDLE DISK IR7| 2168 SCANSPOL EQU Xx 
2114 SCA3SPIN EQU  X'20' ‘i 3 SPINDLE DISK (R7] 2169 SCAMMDMX EQU xX 
2115 SCA4SPIN EQ X'10' % 4 SPINOLE DISK 1R7| 2170 SCAMWDYR EQU X 
2116 SCADKCFG EQU X'40' - DISK CONFIG FLAG [R3] 271 * 
a7 * - O- SMALL CAPACITY DISK 2172 * 
2118 * i 1 - LARGE CAPACITY DISK 2173_—* 
2119 RRRAAARRRRAAARARERAARRARRERRNARRARNRANRRARERANRRRRENRARARRRERRARRERRNAR 2174 SCAMKMSG EQU Xx 
2120 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FOR A SMALL * 2175 SCANCMDE EQU xX 
2121 _* CAPACITY DISK, ONE WITH 60 SECTORS PER TRACK. * 2176 * 
D122  ®ARRERRERERAARRARRARRARAARRARARARAARARARRAWARARAAAAARN RAR RAAARARRRRERRR 2177 SCADCFG3 EQU. 5 
2123 SCAMDSKS EQU X‘81' . DISK STATUS BITS 2178 SCAMBSCA EQU  X 
2124 SCAMSIZ EQ X‘01' : X‘O1' - DISK FILE SIZE 2179 SCANSRJE EQU X 
2125 * O~ 8 MEGABYTE DISK 2180 SCATRJE EQU xX 
2126 * 1-12 MEGABYTE DISK 2181 SCAMSNA EQU X 
2127 SCANZ7MG EQ X'81' ‘ 27 (MEGABYTE DISK 2182 SCANRWS EQU X 
2128 SCAML3MG EQU 1 5 13 MEGABYTE DISK 2183 SCAMICS EQU xX 
2129 = SCAMIOMG EQU 0 ‘ 8 MEGABYTE DISK 2184 SCAMLCAF EQU xX 
2130 * 2185 SCAMOTTO EQU X 
2131 RKRKKRAARRAAARARRARARRARRAKRARRAAARARRKRARR AAR AARAARKAAKAKAARARRAARKRARRAKR 2186 ® 
2132. * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FOR A LARGE * 2187 SCAMBSV EQU SI 
2133__* CAPACITY DISK, ONE WITH 64 SECTORS PER TRACK. * 2188 SCAMND32 EQU X 
2134 RKRKKRERRAAARARARKAARARARAKARAAARRRRARRARRAKRAKRARKKRARAAAAAKRAARKRRAAAKK. 2189 SCANSMEN €QU X 
2135 SCAN62PC EQU X'40° 2 LARGE CAPACITY DISK 1R3] 2190 SCANSIE EQU  X 
2136 SCANSNG EQU X‘O1' 7 65 MEGABYTE DISK 1R3| 2191 SCANCLOG EQU  X 
2137 SCAND6SM EQU X"41' B 65 MEGABYTE DISK {R?| 2192 SCAMSFLG EQU xX 
2138 SCANL3ON EQU X‘C1' 2 130 MEGABYTE DISK IR? | 2193 SCAMCFGS EQU X 
2139 SCANIO5M EQU X'EI' ‘ 195 MEGABYTE DISK IR7} 2194 SCAMPIE EQU X 
2140 SCAR6OM EQ X“D1" < 260 MEGABYTE DISK 1R7| 2195 SCAMDEAD EQU Xx 
2141 * 2196 * 
2142 SCADPIND EQU  SCASDISK+1 1 SYSTEM/DUMP INDICATOR 2197 SCADREL# EQU SI 
2143 SCAMDPOK EQU = X"AS' < VALID DUMP 2198 SCADNOD* EQU SI 
2144 SCANDPUS EQU  X"SA' S VALID DUMP - HAS BEEN ACCESSED 2199 * 
2145 * 2200 SCADCNTR EQU SI 


VERSION 08/28/80 

LINE 

0166 * 

O167 SFNDMRF1 FQU OX" 

0168 * 

0169 * 

D170 SFNDPNQ EQU x" 
. a 


THs 


DATE 31/12/08 


X'04' - WOLD 08 QUEUE 


(00 NOT START AT Pt) 2213 * FIELOS A 


14 * RELATION 
IF NOT IPL, INPUT JOB QUEUE 06 2215 * 
HAS BEEN POSTED 2216 _SCASSTIW EQ 
2217 SCATWASZ EQ 
07 2218 * 
2219 _SCAFVTOC EQ 
2220 SCAFVTON EQ 
2166 SCAPUSF EQU x'40' nes SECURITY 08 2221 * 
2167 _SCANJOBQ £0 - JB Q : 2222 _SCAIVTOC EQ 
2168 SCAYSPOL EQU K'10" . SPO 2223 SCAIVTON EQ 
2169 SCAMMOMK EQU  X'08' . DISPLAY STATION OM TRANSIENT 09 2224 * 
2170 SCAMMOMR EQU  X'04' DISPLAY STATION DM RESIDENT 2225 SCASIOSS EQ 
NOTE: IF “WORK WOMR’ BOTH =1° 2226 SCALOGSS EQ 
1 2172 * ; THEN RESIDENT/TRANSIENT 10 2227 -* 
2173 j VERSION OF DSDM SELECTED. 2228 SCADSSIS EQ 
2174 SCAYKNSG EQU  X‘02" . KEEP INFO, MESSAGES AT EO] (R41 2229+ SCADSSCS EQ 
11 2175 SCAYCMDE EQU X'01' . COMMAND LANGUAGE IS ENGLISH ll 2230 SCADSSIO EQ 
2176 * 2231_% 
2177 SCADCFG3 EQU  SCADCFG2*1 1 COMMUNICATIONS FEATURES [R31 2232 SCACONFG EQ 
12 2178 SCAMBSCA EQU  X'80' . —_BSCA 12 2233 * 
2179 _SCANSRJE EQU X‘20' ._SRUE 2234 SCASHIST EQ 
7180 SCAPRJE EQU X40" . MRIE 2235 SCAHFSIZ EQ 
13 2181 SCAYSNA EQU X'10' . SNA B 2236 SCAHFCUR EQ. 
2182 SCAYRWS EQU X‘08' RS 2237 -* 
2183 SCAMICS EQU  X‘04" ._ SSP/ICF TRA] 2238 SCASMSG1 EQ 
1 2184 SCAMLCAF EQU  X‘02" . LCA 1R6| 14 2239 SCASHYSG EQ 
2185 SCAYOTTO EQ X‘0l' ~__ AUTOCALL 1R6| 2240 SCASWSG EQ 
2186 * 2241 SCASMSG2 EQ 
1 2187 SCANBSV EQU SCADCFG3+1 1 SSP CONFIGURATION OPTIONS 1 2242 * 
2188 _SCAMD32 EQU X'S0° X'80' ~ SINGLE PROGRAM MODE 2243 SCADSSJQ EQ. 
2189 SCAYSPEN EQU  X‘40" ~ X40" - MCA SMF ACTIVE IR6] 244 * 
16 2190 SCANSME EQU  Xx'20° . —-X'20° = SME ACTIVE IR4I 16 2245 SCADSSPR EQU 
2191 SCAMCLOG EQU  X'10° - _X*10* - CONSOLE SYSLOG POSTED 2246 


2192 SCAMSFLG EQU = X*08" . X‘08" ~ SECURITY 
2193 SCAMCFGS EQU X04" . X*04" - BUILD CONFIG RECORDS 
2194 SCAPIE EQU X‘02° X‘02' - PID MODEL INDICATOR 


7 


) 
» 6 Mf Be Ee 


2195 SCAMDEAD EQU X"01' X*O1* - DEDICATED EXECUTION 2250 
18 7% * 18 2251 
2197 SCADREL® £QU SCAYBSV+l = 1 SYSTEM RELEASE LEVEL 2252 
2198 SCADMOD® EQU SCADREL®+1 = 10 SYSTEM MODIFICATION LEVEL 2253 SCAUSERa EQU 
1 7199 * 19 2254 SCADSBFP EQU 
2200 SCADCITR EQU  SCADROD#+1 COMMUNICATIONS TRACE INDICATORS 2255 * 


PAGE 4 ~«TIME 02:15 DATE 81/12/08 VERSION 08/28/80 
IF DO LINE SOURCE Ol] IF DO LINE 
ones * INSTEAD OF DESIGNATED USER LIB. 0221 * PAR * TY 
O16? SA Ew Xx Os" RETURN LIB Fl ADOR OF rerBer. O2Z2  SARARRRERERSD 


0223 * 
0224 ACECHAIN EQU 
O75 OATiap Tra 


ONLY WITH REGULAR CALL. THE 
START ADDR FIELD 1S OVERLAID 


LINE 01 
TRACE LINE? 
€ LINE! 


Ud) 


ent 


2212 * POSSIBLE THE SS HAS BEEN DEFI 2 BYTE FIELD. THESE 
2213_* FIELDS ARE OROER DEPENDENT AND DESCRIBE. 


07 


2220 SCAFVTON EQU = SCAFVTOC+2 = 2 I2E OF DISK VTO 


08 2221 * 09 
2222 SCAIVTOC EQU  SCAFVTON*2 = 2 ~—SS_OF DISKETTE VTOC WORK AREA 
2223 SCAIVTON EQU AIVTOC+1 = 1 = SIZE OF DISKETTE VTOC WORK AREA 

09 2224 * OF 


2225 ScASIOSS EQU SCAIVTON*2 = 2 SS._OF SIO TABLE DIRECTORY 
226 SCALOGSS EQU SCASIOSS+2 = 2 S OF ERROR TABLE DIRECTORY 
10 2227 * 10 
2228 SCADSSMS EQU  SCALOGSS+2_-2_—_—SS_OF MAIN STORAGE DUMP AREA 
2229 SCADSSCS EQU SCADSSMS+2 = 2 SS OF CONTROL STORAGE DUMP AREA 


11 2230 SCADSSIO EQU SCADSSCS#2 2 SS OF 1/0 PROCESSOR DUMP AREA 11 
2231_* 
2232 SCACONFG EQU SCADSSIO+2 2 SS OF CONFIGURATION RECORD 

12 2233 -* 12 


2234 SCASHIST EQU  SCACONFG+2 2 START SS OF HISTORY FILE 
2235 = SCAHFSIZ EQU SCASHIST#2 2 SIZE OF HISTORY FILE 


13 2236 SCAHFCUR EQU SCAHFSIZ+2 2 SS OF CURRENT HISTORY FILE ENTRY 3 
2237_* 
2238 SCASMSG1 EQU SCAHFCUR+3 = 3 SS-1ST LVL SSP MSG MENB (@*MSG1) 

14 2239 SCASHMSG EQU SCASMSGI+3 3. SS-SSP HEADINGS MSG MEMBC##MS62) 14 
2240 SCASWYSG EQU  SCASHISG+3 = 3 SS-SSP_WK STATN MSG MEMBC#MSG9) 
2241 SCASMSG2 EQU SCASWMSG+3 «3. SS-2ND LVL SSP MSG NEMB (##1SG4) 

15 2242 * 1 
2243 SCADSSJQ EQU SCASMSG2+3 3 SS OF INPUT JOB QUEUE FILE 
2244 -* 

16 2245 SCADSSPR EQU SCADSSJQ#3 3 SS OF SPOOL PRIMARY FILE = {R81 16 
224% * BEFORE SPOOL IS INITIALIZED DURING IPL THIS FIELD WILL 
2247 —* BE INITIALIZED TO ONE OF THE FOLLOWING: 

Vv 2248 * X*000000 * CANCEL SPOOL. WV 
2249 * X‘FFO000 * DELETE SPOOL FILE AND CANCEL SPOOL. 
2250 * X*OONM#A" LHERE: N= SPOOL FILE SEGMENT SIZE (BLOCKS-1) 

1 2251 * se = NUMBER OF SPOOL FILE SEGMENTS 18 
2252 x 
2253 SCAUSERA EQU SCADSSPR+2 2 START ADDRESS OF USER STORAGE 

9 2254 SCADSBFP EQU SCAUSERX2 9-2 ADDRESS OF SPOOL BUFFER POOL 19 


SPLU/3 VERSION 08/28/80 THE 02:15 DATE 31/12/08 
IF DO LINE 


SRi-PSCRTPLL C1 8 ~TL) 


A1~YSCAROVOLC 16 “TPLIPL *; 


CASYSIC 1s) ‘*? LPL); | nk. is pean 321 


2273 SCART ew X'EO' 
2274 SCANCRT 


2276 = SCASYS1 = EQU eo 
zit ate £Q 


1S) 7SATAC2; 7” 9S 


” mt NRE aS WY Ox 


SYSLOG assicneD TO PRINTER 
SYSLOG ASSIGNED TO WORK STATION 


SYSTEM CONFIGURATION BYTE 5 
1S = — ae ia om ans 


X20" - . IPL -OERRIDE cerveD 
K'10' - IPL-SIGN OM COMPLETE 


"08" ~ SYSLOG eaCT AT €0J 
X'02' - corte RECORD LOCK |R3/ 


X40" = MASTER Pamir Dart 
X20" ~ HIGH LEVEL DEDICATION 


X'08" - SYSTEM DATE RECEIVED 
X‘04" - DOMMYY DATE WORLD TRADE 


X‘O1* - YYMPDD DATE SPECIAL 


229% * EM IPL DATE - IN PACKED FORMAT YY I DD) 


2297 = SCADYEAR EQU = SCASYS2+1 
2298 SCADMNTH EQU  SCADYEAR+) 
2299 SCADDAY EQU  SCADMNTH+1 
2300 SCADDATE EQU  SCADDAY 
2301_* 

2302 SCADCTUT EQU  SCADDATE+1 
2303 -* 

2304 SCARDVOL_EQU  SCADCTUT+6 
23305 x 


1 
1 
3 


SYSTEM YEAR 
SYSTEM MONTH 

EM 0 
SYSTEM DATE CYMD> 


COUNT OF USER TASKS IN SYSTEM 
DISKETTE VOLUME LABEL 


DISKETTE PHYSICAL FORMAT 

X'80" - IPL_AUTOLOADER FLAG {R31 
0 - IPL DISKETTE, AUTO-YES 
1 - IPL DISKETTE, AUTO-N0 

X°40° - 2 SIDED ~ MFM RECORDING 


™4 
4 


4 
318 8 
4 


geul'*+|*> lees -gl- eel eee g gle eae - glee leg 


4242 * TWA FUNC-PUT, TAG-TWAPPS12,N-1,XL-VES,AREA-WSIN—=S*S*S*~S 


12 

12 ISSUE TWA REQUEST 
12 424 

12 4245 OC) —ALICTWAPPS12) TAG 

1 2 424% oC LICL) LENGTH CIN SECTORS) 
12 4247_*** END OF EXPANSION ** 

1 2 4248 @ENDGEN; 

1 2 4249 

2.2 4250 


4251 : 3 7* YES, SET FLAG 
4252 REGCXR1)=ADDRCNUBCPTCB+TCBTTC-1); /*® XR1 PTR C.P. TTC @8145*/ 04740000 
4253 GEN; 04750000 


POST DEV-QHDTTC,PREMPT-NO  /*INDICATE REBUILD 00 @@145*/ 04760000 
SVC SVCPOST,Q0 

OC ALICQHOTTC) 

DC = ALICPREEMPT#0+0) 

*® END OF EXPANSION ** 

TWAIT MASK-TCBDWAIT, Q-0 /* WALT FOR IPL COMPLETE a@145*/ 04770000 


ee eee) 


SATDATA EQU 
® 
TPRIV Ei 


NTN BD PTR RO BD) 
» 


NR 
sssss 


SATFRPRM EQU 
SATINIT _E 


C09 
: VERSION 08/26/60 
SOURCE LINE 

X'20' - 2 SIDED - FM RECORDING 2366 


2:15 DATE 81/12/08 


2316 SCANDL28 EQU ; 2m 
217 * 2372 


ee 
pat 


je eS 
{ 

: 

aa} 3 n 


CCAR LEP EEE CREP er pe tee 
g 


TE D225 


15 


4300 


4301 SATLOAD EQU  X'0B' 


M40" SSN VALUE OF NEXT TRANSIENT 
1X 80"6X*00"+K°20"eK'10 08 4K'00"*K"00 X00") 


ADDRESS OF REQUEST DATA 
LOADER PARH LIST OFFSET 


4303 S$ATCREAT EQU  X'80' 
4304 SATREAL EQU x'40' 


4309 SATOATA EQU  X'‘08' 


4310 * 


4312 SATIS eq x'02° 
4313 SATFRPRM EQU X'01' 
BATINIT EQ 


4314 


SED . 
OFF: 700 PASSED IN PARM LIST 
ON - DON'T ASSIGN JOB NAME 
OFF~ ASSIGN JOB NA 
PUT DATA TO SESSION WORK AREA 
ALSO, DUMMY UP INVITE 


TASK 1S NOT SMRPPRBLE 
FREE ATACH PARM LIST 
TCREAT+$ATREAL +SATTUBAS+SATOATAtSATPRIV START INIT 


PESSAGE 10 © FOR SYS COM REPLY 
Seo levee SEITY FILE 


4352 
4353 * 
4354_NIPACTSK EQU 


4369 * 


Ol] IF 00 LINE 
2421 


2423 


2424 
2425 


2499 


Bie SBS RSIS SBS Ss ES ESR EE 


& 


PERILER Lt 


OF 

PF 

® 
oc 4 
oc A 
o A 
ow 2 
oc OA 
o UA 
oc 
o A 
o oA 
ow Xl 
o Al 
oc OA 
ow Al 


4368 *** END OF EXPANS 


SPL/3 VERSION 08/28/80 


SCADLIN® EQU 


2422 * 


® NOTE: THIS [ 
OEFIN 
DESCR! 
FOR €) 


» ei 2 2 Bie ee el 


PP dred Ld tawhd tlbioe Rn hdd 2 
woe 
0, 7» TAS! T, TUB 


PRIOR-TCBPRBLD, SYS-Y, ¥-DC 
® 


DC «4XL1 00° SSSN OF NODULE 

oC 8 =—AL2(0) LINK EDIT ADORESS 

oC _AL2(0) START CONTROL ADORESS 
; ; 


oc A200) 
OC _AL1(X'80'#X ‘00 *+X ‘00 +X 00 ‘+X ‘00 ‘+X ‘04 ‘+X "00 "+X '01 ') 


OC = ALICTCBPRBLD) PRIORITY ONLY IF NEW TASK 
oC AL2C0) TUB_ADDRESS 
Al if OF eX) “vi 
DC = ALICX 80'+X '00'+X "00 '+X "10 '+X "08 '+X '00 "+X '00'+X '00') 
OC _ALICTCBIDACT) TASK ID ONLY IF NEW TASK 
D AL2(0) ADDRESS OF REQUEST DATA 
4368 *** END OF EXPANSION ** 
4369 * 


SPL/3 VERSION 08/28/8 
01) IF DO LINE 


E 02:15 DATE 81/12/08 


2476 * 
2477 SCAHALC | 
2423 * NOTE: THIS BYTE DESCRIBES HOW THE COMMUNICATION HAROWARE 1S 02 2478 * 
2424_* DEFINED. BITS 0-3 DESCRIBE COMMUNICATION LINES. BITS 4-7 2479 SCAMFLOC | 
2425—* DESCRIBE AUTOCALL LINES. BITS 0-7 DESCRIBE X.21 LINES. 2480 * 
2426 * FOR EXAMPLE: 03 2481 * 
2427_* AUTOCALL ON LINE 3 AMD CORPUNTCATIONS ON LINES 2482_* 
2428 * 1, 2, AND 4 WOULD BE X‘D2". 2483 SCAMAVSZ | 
2029 * X.21 ON LINE 1 AND COMMUNICATIONS ON LINE 2 04 2484 * 
2430_* WOULD BE X'C8'. 2485_* 
(ASTOCALL AND X.21 ARE MUTUALLY EXCLUSIVE. 2486 * 
05) 2487 SCADRSEC | 
EQU X'a0' 2488 * 
2409 SCADHFUK | 
2435 SCAMLINS EQ X‘20° COMMINICATIONS ON LINE 3 06 2490 * 
E . COMMUNICATIONS ON LINE 4 291 ® , 
yf “wo ¢€ 
. ATO CALL ON LINE 0 24693 * 
SCAOU? 6 AITO CAL 2494 SCADCFGS | 
20 SAPOR EU x'02° : CALL ON LINE 3 1861 205 * 1 
2441 SCARACUS EQU X‘0I" - AUTO CALL ON LIME 4 06 am SCAB? | 
f 
206 * [ 
0 2099 * f 
700 * f 
501 * [ 
0 202 * f 
203 * 
204 SCAOCFES 
1 2505 SONWAEA t 
- 
M2 507 | =SCAR 
2053 2 708 SCAMAN f 
254 SOTO ES  SCROREDJ+2 2 CONPMMNICATIONS DUNFER SIZE 2509 SCAT ¢ 
mS * 510 SWMLBN f 
266 SOMABTS GQ SCADTOUF+1 «= UK STATION GUERE SPREE (1D Bi sce t 
21 * Di2_ Scwmrs t 
SESS GU SOMABGS1 (1 SYSTEN GHA SPREE C1) cm 


O25 DAE 81/128 


hes Ww MVNO ITE Vt GO VIII SIIS 


wr on 1 05100000 


14 4408 X001 =-0C_~—XL3"000001' CONSTANT OF ONE 05110000 
4409 ORG *-3 05120000 
4410 X00 OC XL2°0000" CONSTANT OF ZERO 05130000 
1 ail ORG 8-1 05140000 
4412 X01 DC _XL2‘0001' _ CONSTANT OF ONE 05150000 
4413 ORG *-] 05160000 
1 44 Xl oC XL1‘01' CONSTANT OF 1 05170000 
4415 ORG *-1 05180000 
416 X100~—SOCSCSC*«C«L 2100" CONSTANT OF X‘100° 05190000 
Vv a? * 05200000 
4418 NIPSWICH OC _XL1'00' IPL SWITCH BYTE 05210000 
4419 WAITEND EQU 128 REBUILD COMPLETE FLAG 05220000 
18 4420 * 05230000 
4421_8e* 05240000 
4422 RARAR 05250000 
1 4423 *RRR REMOTE WORK STATION DATA AREAS 05260000 


4424 RKRKR 


C12 
Te 02: DATE 81712708 : B12 rae 
i DATE 8171270 : vei 
0 - DONT REFORMAT OVEFLOW FILE 231g 
247 STRABLE EOD KO" | HISTORY-ALLOCATE OVERFLOW FILE 5 


2678 * OFTER IPL 2533 
2479 SCAMFLOC EQU  X'10' ._HISTORY-OVERFLOW FILE PREFERRED 2534 
2480 * LOCATION 3 
2481 * 1 ~ SPINDLE Al 2536 
2482_* 
2483 5 


© ~ SPINDLE AZ 

TSTORY-OVERFLOW FILE SIZE CBITS 
4-7 CCOF')) IN MULTIPLES OF THE 
HISTORY FILE (1-8). 


aaa 


2486 
2487 «SCADRSEC EQU SCADCFG7+3 = 3- RESERVED FOR SECURITY USE 
2468 _* 
SCADHFWK EQU «= SCADRSEC*+2 «= 2) SECTOR OFFSET OF WTOC ENTRY:  1R3/ 
. HISTORY OVERFLOW FILE, *HISTOVE 


ORE PEE CRE CEE SPE SE Er es ece 


AOS 63108 06 19116 $6 GF OH ee tl ew fee ei ol ew al 2 al ee wee alin ain eye ae se el ew 


a 
3 


ee 


PELE PEE PEE REE ESE 


05650000 


oC ALICOD 

oc = ALIC0D RLD DISPLACEMENT 
4470 SPACE 2 
an OC CL4'SvAT* * ATTACH 
4472 NIPSSATC EQU * 


4473 OC __XL3"00' MODULE SSS 

4474 Oo ALCO) AMBER OF TEXT SECTORS 
4475 oc = =AL1C0) RLO DISPLACEMENT 

4476 SPACE 2 

“rr OC CL4'NSBL* * FILE REBUILD #1SBLD 
4478 NIPSSBLD EQU * 

4ai9 oC XL3'00° MODULE SSS 


Sait BITTITOR a7 0 7, F Att 5 SPL/3 VERSION 08/28/80 
Ol} IF 00 Ol] IF DO LINE 


z 


2587 SCADCFGS EQ St 
~--> #ICOM STORAGE IRI 
THIS WILL BE THE AOORESS 
' ’ BEMENT 
IS ACTIVE, OTHERWISE IT WILL BE 
THE ADDRESS OF THE WORK STATION 


06 2545 SCADCPS4 EQU SCADRSPC+1 1 COMMAND PROCESSOR SWITCH 4 = R81 U6 
2546 SCAMALD EQU X'80° +__VERY HIGH LEVEL DEDICATION 
eri 


. 


SEVZIAIIA yey 
2 


SEE HEE 
: 
FS 


2610 


SCROSSPF EQN SCF 
Serer to x 
* ew x 
* ae’ 
: ae 
* ew x 
* ew x 
mw xt 
Scere xt 
m 
Teak te os 
3 
SOMATR BQN S09 


BEG HE GE ELC GD He a 
} » 


BAR B28 


Re * * CD ITED aT OOS Oe BT meee co * q o6py ca or canner 


0 2603 SCADUCFG EQU SCADRFTR¢S § © 8 —UDT COrt! CONFIGURATION 1831 07 


Ol) tF DO LE 


1R41 
MASKS AS SYSTEM CONFIGURATION 


aatees 


~ 5 


x 


SCAQUDT EQU  SCABUCFG-1 . LINE 1 CONFIGURATION (BYTE 0) 1831 
05 SCAOUT2 EU SCADUCFG-3 . LINE 2 COMFIGIMATION CBYTE 0) 1R3I 
- LINE 3 CONFIGURATION (BYTE 0) 116! 
LINE 4 COMFIGUMATION (BYTE 0) 1161 


® 
® 
"eX END OF EXPANS 
* sve 
® 
* SVC R-BTYE EQU 
® 
SVCGWAIT EQU X' 
SVCEPOST EQU xX" 
SVCWAIT EQU X' 
SVCPOST EQU X'‘ 
SVCHFER EQU xX’ 
SVCUNSTK EQU_X 
CASSGN EQU X‘ 
SMOFREE EQU. Xx" 
SMCISEC EQU Xx" 
of CoMSS xX" 
SWCASGN EQU xX" 
SVCPPSVC EQU Xx" 
SVCLOATR EQU xX" 
Sure em OX" 
SVCQUEVE EQU Xx" 
SWCSLI wT * 
SVCKIENT EQU Xx" 
SVCEXIT EQ Xx" 
~ CGF wD Le 
SVCFREEP EQU Xx" 
SMTIN, EQ XK" 
SuCTID x‘ 
STIR GW Xx" 
eux" 
SVONITOr x"! 
SVCPOSTA EU OK") 
SOLOS GOK" 
SOCAN GG Xx") 
- wx 
SMCTPOST EX" 
NCTATT GU"! 
Tm GW OX’! 
WO GOK’ 
NRE EK" 
WR EM 
UX 
MATES] GK 
SPR OK] 
w_X7 
WORE z ry 
SOTO x" 
i 
ee e x7 
SONNEI EK 
SOMST! x2 
00 z e Kl 
Soar Ew 
Se eK 


€ 02:15 DATE 81/12/08 a/e PRG : SPL/ RSION 08/28/8 
NE 


RESTORED WHEN DUMP. IS COMPLETE. : 
TWIG 


2643 *** END OF EXPANSION ** 

2644 _* SVEQU SUPERVISOR CALL EQUATES 
2645 * 

2646 * SVC R-BTYE EQUATES 


anageage 


sagrensag 


4 
} 


SDURCE 
(ARE CURMER NTTPALIZED AAT SSRI TIME OR TAGE FELLED IW aT 


$ 4% a @ 


TREN. ERENTIPED 5 WKCONSTANT SAY BE MODIFIED BY TRL 


ete sdhod asad, \emeee:” alin; sEcate <4kven) axaea sam 


E 02:15 


DATE 81/12/08 


C16 


SPL/ RSION 08/28/80 PAGE 50 TIME 02:15 81/12/08 


Ol} IF DO LINE SOURCE Ol] IF 00 LINE 
269% * 2751 
269: INDICATES NOT USEABLE FROM MAIN STORE 2752 
2698 EJECT 074 2753 
2699 * DELAYED SVC_R-BYTE EQUATES 2754 
2700 SWFD EQU X‘4' DISK 10S 2755 
2701 SWIO =F OX"4a1' DISKETTE IOCS 0 2756 
2702 ta Equ X'42° WORKSTATION I0CH (PRINTER) 2057 

03 eq X'43° DRKSTATION [OCH CTERNI 2758 
2704 Syccne eq Xx"4a* COPPUNICATIONS 10CH 04 2159 
2705 SVCIOMNT EQU X‘45' 10 Ue ea SeaesT 2760 

06 SVCPOSVE EG Xx’ p 2761 

x°6° > 2762 


7B + "FE FOLEBMING BIT CTS GET OWN WE HIGH BYTE OF WEDESSRRY 


ii SS oa? SR Co! letee Sn : onne Tols ae Ce ce ae et ie ee ee ee nr oe 


SPL/3 VERSION 08/28/8¢ 


RRRARRRRRD 
*18 

s axR) 
RERARARERI 
*20 r 
® PMR 


RRAKRARRRD 


a] | 
H 
FH} 


a "gs "2 * 
hi ial ial 


1 
a * 


s* 


=) | 
PREGA EG i | 
68 & ie 6 Slee wm wien 2 


i | 
wa 


5 


DATE 81/12/08 


37 * LINKAGE = CALLED BY MAIN STORAGE IPL PHASE 3, AMSIPL 


00380000 
3 00390000 
39° INPUT = oo4o0000 | 1 
40% 00410000 
41 * OUTPUT = 00420000 
42* 00430000 | 1 
43.*  EXIT-NORMAL = TO COMMAND PROCESSOR RESIDENT ROUTINE. 00440000 
“4. 00450000 
45 *  EXIT~ERROR = 00460000 | 1 
%* 00470000 
00480000 


47 *  EXTERNAL-REFERENCE = N/A 
48 x 
49* ROUTINES = N/A 


00500000 
30 * 10000 
‘ 51 * DATA AREAS = 20000 | 1 
52 * 00530000 
34 


2 2 2] Oe 2 BER we Oe Oe oO 
as 
a 


2 8 2! 


005 

005: 
. CONTROL BLOCKS = 00540000 
. 00550000 | 1 
55 * TABLES = 00560000 
JOOU 


* 2 »® 


C17 
SPL/3 VERSION 08/28/80 PAGE 51 TIME 02:15 DATE 81/12/08 


SPL/3 VERSION 08/28/80 


IF 00 LINE SOURCE Ol) IF DO LINE 
215] R*ARARAARAARAARARRARARRARRRRARARR RARRARAAARERARARARAAAARAAR ARR 2806 SPACE 
2752 *18 x ry ry ry ry 2007 «TCBWAITD EQU | 
2753" aml *oaeR2 ®t OMRR IR 0 2008 TCBXWAIT EQU 
2154 RRRARRAARARRARARAAARRAARARAARRRRR RARAERARRARRRERARERERER ARR EIRE 2009 TCBGWAIT EQU | 
2755 *20 rs * * ry ® rs ry r ry 2810 =TCBOWAIT EQU 
2156 * PR PSR * R * Q *  *aINl * aI? * aIM3 * alms * 0 2811 TCBIWAIT EQU 
215] RXARAARAAARARARERRARERARRRERRERRE RERARRARARRARERARARRRRRARAR RRR 2812 =TCBTWAIT EQ) 
2758 *2 ry ry ® rs ry ry 2813 TCBSUSP EQ) 
2759 * TSSN *BEGL * F< MSSIZ* RGSIZ*® SPO = * 0 2814 * 
RRARARARAERRARARARARERAARRERRERRARRARRERRERERRARRARIR ASR ARR RRIRR 2815 * equ) 
28616 =TCBNRDY EQU i 
05} 2617 SPACE | 
2018 TCOMWSK EQ | 
7619 SPACE | 
06 TCOAMAIT EQU } 
2821 =TCBSWAIT EQU) 
CBTAS QU) 
0 TCHAAIT EQ} 
TCOMAIT EQ} 
2770 * Wore: THE 
am ti ® 
2m = 
273 * = ‘2 = je T 


os 
fet te Del be ws ati et Be Selee Se Sel Se wet ale et esl et et tl 


7 2 

me om * We * * wR * um * 
ZIT RAAAAAARARRARRAARRARRARRAARRRRRRR RARALARERAARARARRARAAAEARERRERERE 
2716 58 2 x x 7 2 

zm * LOUK "weT* * a * eT * 
QTIG  AARAAAAAARARAARARAAARARRERRERARERARERRERAAERREDRERRERRARERAEERERAA RARER 


2820 
2622 
2823 
2824 
255 
2826 
2627 
2428 
2829 
2830 
733] 
2832 
2833 
(83 
2835 
rast 
2038 TCHEWT 
2 TOICeA 
aa 
2a 
no 
ae 
26 
aa 
2a 
ae 
20 
253 
Po) 
zi 
ro) 
Pod 
5 
so] 
2D 


"é 
x 
z 


fy 
» 
* 
* 
* 
* 
” 


ETE 
. 

i 

: 

g 

2 

: 


_ SET GN WEN TSK FOLLY SerPED oor. 


Se 53 BeIeE BE cult ot BEL SE BE 


GFQ * FRE FRLBUNG «6 MMIRIS ORE THE CCUNRENT LOADER PRIN LIST WaLUES 
OTS TESS EU TSP] «(HIGH WD TUDE BYTE DF OSS FELD 


Whee ees oes | (ee “eee <e aibinin's al <A ia Sy y I t F 


R 
® 
x 
R 
n 
x 
® 
® 
x 
* 
® 
x 
® 
n 
® 
x 
® 
* 
x 
x 


TIME 02:15 


DATE 81/12/08 


OZ 


0D 


SPL/ RSION 08/28/80 
IF DO LINE 


816 a (CRMALTO*TCE 
2617 SPACE 1 
2018 TCHRWSK EQ TCRSTAT2+1 
2819 SPACE 1 


2820 TCOMAIT EQU X‘80" 
aa TCRSAIT EQU ‘40 
TRIAS EQ CK'20 


C18 


- WAITING FOR TRANSIENT AREA 
-_ TASK WAITING FOR ia POST 


"TASK WAITING FOR INTERWAL DYLD SVC 
: TS WRITS FOR THER ELIPSE 


T+ TCRGMAIT + TCRDWAI T+ TCBSUSP+TCBIUAIT 


FIRST WAIT MASK 


- S05 ASSIGN FAILURE 
_TWN ALOCATE FALLRE 


PAGE 52 TIME 02:15 DATE 81/12/08 01 


OZ 


SPL/3 VERSION 08, 


TF DO LINE 
2861 
2862 
2863 
2864 
2865 


338 


RPRR Ia 


Ti 
RPATE PPE EETEECEE CEE CCE CEE CEE 


q 
j 


q wd “ > 
t | } 
; ; Sef 


} 
{ 


Rs Si . oi fs - 
~ { 4 
bad i = ra | 


ADDRESS RECALL REGISTER 
0010 100 TAR INSTRUCTION ADDRESS REGISTER 
0001 101 108 108 POINTER 
0002 102 OTF OTF POINTER 


ALTERABLE CODE 
ALTERABLE CODE 
LENGTH OF ADDRESSES 


BLANK CHARACTER 
0000 109 ZERO 
0001 110 ONE fu 1 
0002111 TWO equ 2 


0006 115 SIX 6 

0007 116 SEVEN EQU 7 

0008 117 EIGHT EQ 8 01180000 
0009 116 NINE EQU 9 91190000 


) TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/26/80 PAGE 5 TIME 02:15 DATE 81/12/08 SPL/3 VERSION 0 
Ol] TF 00 LINE SOURCE Ol IF 00 LINE 
2061_‘TCBPREM EQU X'‘F3° 3270 EMULATION PRIORITY 2916 
he CRPRE) En X‘FO' FYTEM) 
2063 «TCOPRITH EQU  X'F4° BCS PRIORITY FOR 3270 I/H 2918 
SOLC PRIORITY (PRIMARY) 2919 


227 


dddadddgd #edeage #eeaic 


=! 
q 


» ! =a 4) = / 
=f . «| =! 
dignvagdadgedddd 


4 * a in iT « : Pr Ta ‘ ee e 
26 “Wen FIELES ARE GMRER 
953 
ms 
5 
as 
: Pe] 
Se att 1 vA ET 
2S "Rn EPL FES 20 


tk ne 
it 
hi 


yy Ee 
: 

Pat 
aaggdddda 


BIE TER ——AD FHN STS TENT SCHEER TH. 
DSS ERU DIP TR] «| UR GR RN STE SP A. 


ptr My ite ee Ee Ee ee 


0002__153 SFNOMSRC QU X'02" 


0008 155 SFNODNNS EQU SFNDDTYP+8 = 8 CHARACTER MEMBER NAME 


0009 157 SFNODOPR EQU SFNODNN8+1 © OPERATION SWITCHES 

0080 158 SFNDMSYS EQU  X'‘80' JUST SEARCH SYSTEM LIBRARY, 
159 * SKIP SEARCH OF USER LIBRARY. 

0040 160 SFNOMLOR EQU = X‘40' BUILD LOADER PARM LIST - DO NOT 01610000 
161 * MOVE ENTIRE DIR ENTRY. 01620000 

0020 162 SFNOMUSE EQU X'20' JUST SEARCH USER LIBRARY, 01630000 
163 *® SKIP SEARCH OF SYSTEM LIBRARY. 01640000 

0010 164 SFNOMULB EQU = X'10° SEARCH USER LIBRARY IN SFNODFIA 01650000 
165 * INSTEAD OF DESIGNATED USER LIB. 01660000 

0008 166 SFNOMRFI EQU § X'03' RETURN LIB F1 ADDR OF MEMBER. 01670000 
167 * ONLY WITH REGULAR CALL. THE 01680000 
168 * START ADDR FIELD IS OVERLAID 01690000 

0004 169 SFNDPNQ EQU X'04' DO NOT ENQ OR DEQ LIBR DIR - 01700000 | 
Wo * CALLER DOING ENQ AND DEQ. 01710000 

0008 171 SFNDOFIA EQU  SFNDDOPR+2 FORMAT 1 ADDR OF GIVEN USER LIB 01720000 


C20 


02:15 DATE 81/12/08 SION 08/28/80 PAGE 54 = TIME 02:1 DATE 81/12/08 PL/3 = VERSION 08/28/80 
01 nf LINE SOURCE Ol] IF DO LINE 

2916 Eine qu ue INLINE PART 2 2971 TCBIDBEL EQU 

‘ 2972 TCBIDINT EQU 

2973 TCBIOCP bs 
274 * 

ais TOTO 

2976 TCBIDSFS EQU 

2977 TCBIOMR EQU 

Sx 0 2978 + YCBIOBSC EGU 

LOGICAL Panga BEGIN ATR ‘ABER. ; 2979 + TCBIDSDP EQU 

FO TE ECM FOR Ce ASS FAILURES TCBIDSOS EQU 


06 2950 TCRSPOR. 69 TCORGSIZ+2 SPOOL WORK AREA AGOR U6 
2931 Tere are see ie GP FOR Ce eas 


HEELERS ERERREEET PETES Fee: 
=| =@ = 

= 

= 


j 
| 
H 
| 
| 

| 

{ 


{ { 
: { 
S : 


8 RT Na Newel WET re ee Y eitwe 


0060 209 SFNOMSYR EQU  X'80' FOUND IN SYSTEM LIBRARY 
0040210 SFNOMUSR EQU .— FOUND IN cco LIBRARY 


212 * END OF EXPANSION OF SFNOP 
213 _*** END OF EXPANSION ** 


21H RARAARRARAAARRAKAARAAARAAARAAAAAARRARRARRARAARAAAARAARAARAAAAARA KARA RAK 


216 * 1" k slel 5* 6 7 
1 LIBRARY. 27 ® CHAIN & TAR Rik AB *® PARN * PAR 
218 RARRRARRAAAARKRRAAKKRAAKRAAKKAAARRAARRAARAAAAARKRRAARARAKAKAARARAARAARARARRK, 
) USER LIB. 219 * 8" 9” el o* FR 
220 PAnM? & p ® XR ® x XR2 ® TCB x 
221 RARERARRAARARRAKRAKRAAAAKARAAKRRAAAARRAAAARARAAKAAARARAAAARARAAARARARAARA 
222 * ie 
0001 22 CHAIN EQU 1 CHAIN TO ACTION CONTROL ELENENT 
0003 224 ACEIAR EQU ACECHAIN+2 CALLERS TAR VALUE 
0005 225 ACEMAB EQU  ACEIAR+2 MAB ADORESS (CONTROL STORAGE ACE) 
0006 226 ACEPARM EQU ACEMAB+) FIRST IN-LINE PARM 02270000 
C21 ; 
) TIRE 02:15 DATE 81/12/08 STON 08/28/80 PAGE 55 TIME 02:15 DATE 81712708 SPL/3 VERSION | 
} rb LINE SOURCE 01] IF 00 LINE 
all Tere 6 EQU X'EE’ BSCEL seeerer task 10 sat = 
5 Ud ul 
3028 TC 
3029_ TC 
030 TCI 
3031 ‘TC 
3032_ TC 
0 & 
3034 TC 
3035 
036 TCI 
3037 ‘TC 
3038 BA 
039 * | 
300 
3041 TC 
3083 TC 
30u_1C 
045 «(1C 
30% TC! 
300 Ta 
08 TC 
306 
2H TO 
52 *S 
3053 
3055 *7 
5 
ae 
os TC 
x * 
3061 Tc 
3082 
— 
3 * 
3087 
ees 
7 
3m * 
wn 
Lae 
33 * 
jo * 
* te 
3 * a 
yor 
a 
wn * 0 
yom * 


CVF FRSE SOU NONI He WOR WT TTR WUC VEY TULLUW MANE VEV I 
261 * AND EXPECTED USE (SEE BELOW) WHERE POSSIBLE. % 
962 * 

263 * 3. THE TOTAL WORKAREA CAN BE USED AS LONG AS ANY INPUT THAT 


264% REQUIRES LOGGING HAS BEEN LOGGED C@CNCU CALLED) AND THE STATIC 
ORKAREA IS AND RI 


CA 


*® 
x 
® 
x 


267 RARRARRARARARARAARAKAARAAKRARAARAAAARARAAAARRARRARARAARAARAAR ARERR 


START OF WORK AREA 
ENO OF WORK AREA 


0000 269 CPURK §=EQqU 0 
QOFF 270 CPRKEND EQU 255 


272 RRRRARARRARAARAARARAR WSDM PARAMETER LIST AREA 8&Aexxnaranananannnnnnn 


215 RRRRRAARAARARAARARRARKRARRARRARRARRARRARAARRARARRARAARRAAARRAAKAARAAR AER, 02760000 


a SPL WSDM PARAMETER LIST EQUATES 02780000 
279 * 02800000 


C22 


5 DATE 81/12/08 SPL/- RSION 06/26/80 PAGE 56 TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/80 
1] IF DO LINE Ol IF 00 LINE 


3081 RHRRARAARRARRARI 
: SSF 3082 * 10 il 

Ol RECURSION INDICATOR 02 3083 _* TCba 
DUMP SHOULD BE TAKEN INDICATOR 30B4  *RRKARARAKARARRD 

“ RLOCK. 3085 *18 = 19 
NO DUMP WAS TAKEN FOR ERROR CONDITION 3086 * ERAID * fl 
WORKSTATION QUE 3087 RRARRRRRRKRRRRAD 

SHA REQUIRED 3088 * 20 * 21 
DEDICATION OVERRIDE INDICATOR. eo "1D *) OW 
3090 RAAERARAARAARAAN 

cas i 1 EOUT CO 3001 * 28 
x‘e0' MEDIUM PRIORITY (SEE TCBPRIOR) 05) 3092 -* 

5 (ARBER OF TIMEOUTS ALLOWED. 09} *RRRAARRRARRRARD 


= ONLY BITS 1-7 APPLY TO BATCOUNT. 
SPACE 1 
301 _TCRSUSPS QU _TCRBAT+1 SUSPENSION STATUS INDICATOR 


042 


3055 * THE FOLLOIMEG EQUATE IS USED TO SET ON THE X°O0° BIT IN THE HiGH 
3056 * GYTE OF THE STE POINTER F CURRENTLY THIS FIELD [5 USED AS 


» 2 


»  ® "al "3 38 

6 oa 

Pais ay | | a a 
=} 3 q* 

a ifa |@ =e Sige 


"@ *@ "8 "eH *e 
"Sn "CRF * FG * OND * CMD * wut" 


SEEPS LCE LE EC eee ee at Le Tce re oP 
ap 


| 


0002 311 WOPM —EQU.WORTC+1 EXTERNAL _OP-CODE MODIFIER 


a 313 WOSYS Ed x'80' SYSTEM REQUEST 03140000 
14 WOOVR x*40" OVERRIDE REQUEST 03150000 

pes 315 WOFNHO eq x*40" FUNCTION HANAGENENT HEADER 03160000 

0020_ 316 WORK = EQUX‘20' ROLL REQUEST 03170000 

P EQ X'20" RU MODIFIER 

0010 318 WOUNF §=EQU X‘10' UNFORMATTED REQUEST 

0008 319 WOPRT = EQU.—sX'08' PRINT REQUEST 

0008 320 WORDSN EQU X‘08' READ SCREEN MODIFIER 

0006 321 WOWTER EQU X'06' WRITE ERROR OPERATION 

0004 322 WSAVE EQU X‘04' SAVE REQUEST 

0004 DROMD «EW OX‘04" READ MODIFIED IMMEDIATE 

0002 324 WRSTR EQU X'02' RESTORE REQUEST 

0001 325 WOPRUF QU. X‘01' PUT FOR READ UNDER FORMAT 
26 cy 


0003 328 WOOPC = EQU ss NDOPI+1 EXTERNAL OP-CODE 


C23 
15 DATE 81/12/06 SPL/3 VERSION 08/28/80 PAGE 57s TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/80 
Ol] IF 00 LINE SOURCE Olj IF 00 LINE 
HOB] *AAAARRARARARARARAARAAAARARARRARAARARARAARARRARRARRARRARRRRARARRR 3136 * 30 
3082 * 10 11 * 12 Wei 815 *16 FW ® ; 137 * TUBPSUBC 
02 3003 * = = =TcRa = * CHAIN, = * ~DEVID * QHOR * ERPCT * ERBFG * 02 3138 ***0PTIONAL AD 
094 RARAARAAARARAAAAAARRARARARAARAAARARAARARERRERERRARRRARRRARRRARRER 3139 * 38 =* 39 
3085 -* 18 = * 19 wa*1B FIC wW*1—e IF 140 * RESERVED 
U5 3006 * ERAID * nic *opTs * SIOCT * ERRCT *® = US- * 0 3141 ***0PTIONAL AD 
7 XXARARAALAAARAAARAARRARRARRARARARARARRARRARRARRARRARAARARRARRARRR, 3142 EJECT 
3068 ® 20 * 21 22 * 23 242% 25 227 x 143 RARAARAAAKRERR: 
4 joo * 10 * WSWA = 18 ® AID * CPAID * RESW * 04 3144 * 
OID RAARARAARARARAARRAARERRAAAREARARAAARARARAARARERERRERRRERERRERERAR 3145 SARARRRARRRRRA: 
1 * 28 aF* 3146 SPACE 
® 3147 RRAARRRRRRRRRR 
3148 * 
149 RRRARRARRRARRA 
3150 SPACE 
3151 * 
152 * 
3153 * 
3154 SPACE 
155 TUBECH EqU 
3156 SPACE 
3157 TUBSSKIP EQU 
3158 TUBSREAL £QU 
3159 TUBSHIO EU 
3160 * ew 
3161 * FQ 
3162 * Eq 
cc : 3163 * Ew 
30 *3 5 ate * ¥* 3164 * ew 
T 3110 * ATS * ROT * AlTac * SESERVED is 1 3165 SPACE 
ZL] *AAnaanaannraennaneananneAAAAARAAAARAARRAARERARARERALERERRE RRR 3166 TUBCOMPL EQU 
S12 ERECT 316i SPACE 
rd 2) 3168 + TUBSACTV EQU 
a4 * bal 3169 TUBSCPL £QU 
15 * TERT UNIT GLOCX FOR PRINTERS x 3170 * au 
36 * * 3m * eu 
wm *0 *Ol *@ *8 “8 *H *O [od 3 TOGGD fq 
I 79 * 6 * GRPL * FL * OND * OND * Ta* mm * 1 x14 * ew 
s120 “Re ich cee AIR TT RA CREE LL SSE RL ALN IEEE ET TEE 3175 TUBSERR at 
n *o Oran oe* 3176 TUBSRACT EQ 
y ‘SPACE 


REQ 
PUT FAIL RE 


NEGATIVE RESPONSE GET 
0010 372 WCAM §=EQU X'l0" ANCEL 
0015 373 WOCAMLI EQU X‘15° CANCEL INVITE 
O01 374 WOCAMG EQU X'11' CANCEL GET 
OOEO 375 WONEOS EQU xX'EO' ORMAL END OF STEP 
OOE8 376 WONEOJ EQU X‘E8' NORMAL END OF JOB 
OOFO 377 WOAEOS =EQU X'FO' ABNORMAL END OF STEP 
OOF8 378 WAEOJ EQU  X‘F8’ 
OOFF 379 WOASFL EQU X'‘FF* ICSSQS ASSIGN FAILURE 
0008 380 WOSTMR EQU X'0B' SET TIMER 


ME 02:15 DATE 61/12/08 PL/3 VERSION 06/26/60 PAGE 58 TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/6 
Ol} IF 00 LINE SOURCE Ol} IF 00 LINE 
3136 * 30 ® 32 33*%34 *%35) = 37 * 3191 TUBSDA 
137 JBPSUB *® TUBPGTUB ® PATRI * PLPI * RESERVED i 192 TUBSPNAV 
02} 3138 ***0PTIONAL ADDITION ABOVE******=20PTIQNAL ADDITION ABOVE*®=*** 0; 3193 TUBSEXEC 
3139 *38 *%39) 683A OB x* wD 36 *3F 8 3194 TUBSPOLL 
140 * RESERVED RESERVED RESERVED 7 3195 TUBSIDLE 
0 3141 ***0PTIONAL ADDITION ABOVE*******20PT TONAL ADDITION ABOVE***%* 0: 3196 TUBSCNCL | 
3142 EJECT 3197 TUBREXEC | 
RRRRRI [RARRRRRR [RARER RRARRRARRARRARR 3198 TUBRPOLL | 


588 
a 


.S 


RS EEE 
in 


* S18 8 BS} Be Se 


tm & pele =e ole ome 


i 
t 
"4 
® 
n 
. f 
. L 
7, 
3729 * f 
370 * L 
75) WD f 
; 


0011 409 WELNE EQU  WOSLNE+1 END LINE NUMBER FOR ROLL 04100000 #5 0014 46: 
0012 410 WOVSLN, EQU  WELNE+1 VARIABLE START LINE NUMBER 04110000 4% 
0014 411 WINDA =EQU  WOVSLN ADDRESS OF OVERRIDE INDICATORS 04120000 0016 46! 
0016 412 WOFMTN §=EQU = WOINDa+2 FORMAT INDEX ENTRY ADDRESS 04130000 #4 0017 466 
0017 413 WOLEN = EQUWOFIITN+] PARAMETER LIST LENGTH 04140000 0018_ 467 

414 *®®® END OF EXPANSION ** 04150000 0019 466 
0016 415 CPWSOM §=EQU = CPWRK*WDLEN-1 WSDM PARAMETER LIST AREA 04160000 #5 OO1A 465 


417 RRA ARRARRARRAR MESGAGE RETRIEVE PARAPETER LIST SMARAARRARRARRARR 04160000 oo1c 471 


418 * RECOMMENDED * THIS PART OF THE WORKAREA IS USED TO INTERFACE x 04190000 #6 0010 472 
49 * —OUSE ® WITH THE MESSAGE RETRIEVE FUNCTION. z 04200000 OO1E 47: 


G20 RRRARARARRARAARARRARRRRAARAARAR RARE RARRARAAARAARARARARARRAR 04210000 OOIF 474 


QOOF 422 CPARTV =EQU O+15 MSG_RETRIEVE PLIST 04230000 0021476 


424 RRRARRARERRARARRRARRR COMMAND OPERAND TABLE Akt eRAAAaennarannnenmnann 04250000 13) 0023 478 


425." EXPECTED * THIS PART OF THE WORKAREA CONTAINS A TABLE OF s 04260000 0024 _ 479 
426" USE *® OPERAND ADORESSES USED SY ALL COMMAND XIENTS. & 04270000 0025 480 


427 RRARARRARRARAAARARAAARRARARARRARAALRARAAAAARAARRARRAAARARAAARAA RAR RARE 04280000 y 0026 481 


0017 429 CPOPLN] EQU = CPWSDi+l OPERAND 1 LENGTH-1 04300000 0028 483 


C25 


15 DATE 81/12/08 


PAGE 59 = TIME 02: 8 
SOURCE D1) IF 00 LINE 


= 
a 


T 


02 * EXEC 1/0 OPERATION CODE 
: «EXEC INVITE OPERATION 


B88 3 


0 . CANCEL INVITE OPERATION 
TUBREXEC . REMOTE EXEC I/O OPERATION CODE 
196 TUBRPOLL EQU = X‘81" . REMOTE INVITE OPERATION 
U equ 


gs 
>< 


4 x'83" - REMOTE CANCEL INVITE OPERATION 
3200 TUBPLOCL EQU X'40' THIS TUB IS A LOCAL TUB 
201 TUBSUB EQU  X‘CO’ - (OFF) IF OFF, THIS IS A SUB 
TECH DEVICE ADDRESS 


[es 
FSSSSSE 


Bases 


eve 
—4 
Pt 


204 TUONO EC C+] 108 CONWND MODIFIER CODE 


a, 
#5 


38 


ae 2 Bi ee ete oe et le we oat oe 


ge 8 


a se 
& 


3 
‘ 
wate 


~- ae: 

Sees 
E 
as 


gs 


3274 


TEUTCLEL EEE LE 


q 
i 
ss 
q 


PERE 


| 
wal 
' 

"| 


SPER 
™ 


OS 2 << ~~ ee - 


315 


04120000 
04130000 
04140000 
04150000 
04160000 


04180000 
04190000 
04200000 
04210000 


481 CPONCALL EQU 
482 CHCICALL ca 


. 


x14! . SIGN OFF QUE TO 1/0 ERROR 


X'15' 


* TDELETE COMMAND CODE 
«OFF OCL STATEMENT 


DEVICE HUNG BUSY 
LINE PARITY cee 


Ol} IF D0 LINE 
3301 
02 3303 
3304 
305 
03 3306 
3307 
3309 
3310 
BI 
3312 
3313 
4 


3315 
3316 
3317 
3318 
3319 


at 
he 


EEOCEEECE Reece eee eer 


PEELE 


SPL RSTON 


08/28/80 


: 
ala 8 oe = 8 


gaeealgaciag 


=| 


* 


See, a Le ee re Ae ee a wf eee Tre Sm SUE Te RE Tt 


517 * « TSINCLUDE INPUT LINE IN ROLL 
0002518 CMCUMSUB EQU X'02' ~_O=NO 56 SUBSTITUTION 

519 * « 1586 SUBSTITUTION TO BE PERFORMED 
0001 520 CMCUBDC EQU X'‘01' . OFTHIS IS NOT A BROADCAST 

521 * -_12THIS IS A M66 BROADCAST 


0027 523 CMCUNIC EQU CMCUSWI+2 = MIC NUMBER TO BE LOGGED/DISPLAYED 
0028 524 ae EQU CHCUMIC+1 SWITCH BYTE __ 


WIT 
. 1200 WaT TNVITE WORK STATION 
0040 527 CMCUNOIO EQU  X'40' . O= ISSUE WS0M OUTPUT 
. 1200 NOI SDM OUTPUT 05290000 
0020 529 CMCUCOND EQU Xx‘20' . 000 NOT ROUTE ONLY TO CONSOLE 05300000 
530 * ._1=ROUTE OUTPUT ONLY TO CONSOLE 05310000 584 CPFIREL 
0010 531 CMCUSTAT EQU = X'10' . O=IGNORE THIS BIT IF OFF 05320000 OO7F 585 CPFIREI 
532 *  1=1F CACUINP IS ON THEN 00 NOT 05330000 
533 * UPDATE STATUS, IF CMCUINP IS OFF 05340000 587_ RARRRY! 
534 * N UPDATE STA 05350000 588 * EX 
535 * . BITS 4 - 7 RESERVED 05360000 589 * | 
0028 536 CMCUMLEN EQU  CMCUSW2 LENGTH OF OUTPUT TO #CPOC 05370000 590 RARRRR 
002A 537 CMCUMGA EQ CHCUSW2+2 ADORESS OF IN CORE MESSAGE TEXT 05380000 
C27 
ATE 81/12/08 P ERSION 08/28/80 PAGE 61 TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/80 
Ol] IF DO LINE SOURCE Ol) IF 00 LINE 
3301 * Ed X‘04' . peinTes NEEDS INITIALIZATION 3356 TUBERAID EQU TUBERBFG+1 
BSN DUE TOR ERROR 57 TUBMIC §=6EQU = TUBERAID+2 
3358 SPACE 
3359 TUBOPTS EQU  TUBNIC+) 
3360 SPACE 
3361 * 
3362_—* SEE THE ERBDOPT 
3363 -* 
OF 3309 * GROUP 4 - OPERATION CHECK ERRORS 04 3364 SPACE 
3310 _* ( REFERENCE TUBSENSO BIT4 > 3365 _* 
3311 SPACE 3366 * | 
OD 3312 * equ x‘ol . SERDES TIME OUT 05} 3367 * 
3313_* Eq x‘02° -_ TIME OUT ON CYCLE STEAL DATA 3368 SPACE 
4% EQ X‘05" - ATOR NOT PROCESSING KEYSTROKES 369 TUBSIOCT EQU = TUBOPTS+2 
06 3315 SPACE O6 3370 TUBERRCT EQU TUBSIOCT+1 
3316 _* GROUP 5 - SCREEN FORMAT ERRORS 3371 TUBWSID EQU TUBERRCT+2 
B17 * C REFERENCE TUBSENS! BITO > 3372 DS) QU TUBWSID+2 
0 3318 SPACE 0 3373 TUBPCFGA EQU © TUBWSWA 


3319 * ew xo ._ INVALID FIELD LENGTH ERROR 3374 TUBTCB EQU _TUBPCFGa*2 
320 * ew xO RESEQUENCE ERROR IN FORMAT TABLE 


ae” WVIES GPU GAN ULOPLAT Peer OP re DoT 
571 * FOLLOWING DISPLAYS: 05720000 }1 


572 * COMMAND DISPLAY 
573 * CONSOLE DISPLA' 
574 * STANOBY DISPLAY 05750000 }1 
575 * SRT_INQUIRY DISPLAY 05760000 
576 *® MRT INQUIRY DISPLAY 05770000 | 
577 * 05780000 115 
57) RRARERARARARARRRRARAR STATUS FIRE FIELD SAVEAREA **RARRRARRARRARRARARAR 
580 * EXPECTED * THIS PART OF THE WORKAREA IS USED BY STATUS n 05810000 }1 
581% _—iUSE ® COMMAND TO GET THE FIRE CONTROL CHARACTER(S). $ 
5h? RARANARRAAARRAARRRANARRRARRERRRRARRERARRARRERRARRRRARRRARRRARRRARRRRARR 
YN 
0070 584 CPFIREL EQU  CPWRKR+1 START OF FIRE FIELD SAVEAREA 
OO7F 585 CPFIRER EQU CPFIREL+2 = END OF FIRE FIELD SAVEAREA 1 
ey hale 587 PAARARARARARARARRERRK ACCEPT INPUT BUFFER ARRRARRARRERRRRRRRERRORRARRAR 


588 * EXPECTED * THIS PART OF THE WORKAREA IS USED TO ACCEPT * 
589 * USE * AND LOG INPUT FROM A WORKSTN C@CPRT AND CNCU). ® 05900000 }1 


59D RAARAAARARAARARAAAAAKRARAARRAAAAAARAARARARAARRARRERAARAAAARRERAARARRERAR 


C28 
E61 TIM 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/80 PAGE 62 TIME 02:15 DATc 81/12/08 SPL/3 — VERSIO 
Ol] IF 00 LINE SOURCE 01] IF DO LINE 
3356 TUBERAID EQU TUBERBFG+] ERROR AID LAG BYTE 3411 
3357 TUBMIC §EQU TUBERAID+2 ERP MESSAGE ID CODE 3412 
0 3358 SPACE 0; 3413 
3359 TUBOPTS EQU TUBMIC+1 ERP MESSAGE OPTIONS 3414 
360 SPACE 3415 
3416 
SEE_THE ERBDOPT FIELD OF THE ERB MACRO FOR ASSOCIATED ['SKS. 3417 | 
3418 
3419 
3420 
3366 * MISCELLANEOUS DATA 3421 
05) 3367 * 05 3422 © 
3368 SPACE 3423 
3369 TUBSIOCT EQU TUBOPTS+2 START 10 COUNT 3424 
06 3370 TUBERRCT EQU TUBSIOCT+] ERROR RETRY COUNT 06 3425 


3371 TUBSID EQU TUBERRCT+2 LOGICAL ID OF THE TERMINAL OR PRINTER 
3372 TUBBWA EQU TUBWSID+2 SS OF WORK STATION WORK AREA 
SS OF PRINTER CONFIGUARTION RECORD 07 


TUB OAMER TCS ADURESS WO... 
315 * PRINTER Gi 
08 3376 TURCORON EQU  TUBTCS END OF COPPEN PORTION OF TUB 03 


SHS SHS LEE ERY Eee ye segses Bese 88 


| a a a er 


4: 


REGRESS 


=3 cette od 


WALES 


0010 631 CXNUSLID EQU 
0011 632 CXNUGLID EQU 


0013 634 CXFDERP QU 

0014 635 CXCONMNT EQU 20 
0015 636 CXNUPD «=EQU 21 
0016 637 CKMRE §=©EQU 22 
0017638 CXNUIOE EQ 23 
0018 639 CXMALID EQU 24 
0019 640 CKACDUMP EQU 25 
OO1A 641 CXNUSNF EQU 26 
OO1B 642 CXNUNEID EQU 27 
OOIC 643 CKMRALD EQU 28 
O01D 644 CXNUGETP EQU 29 
OOIE 645 CXNUMEID EQU 30 


SACK CR 
INTERVAL TIMER MASTER 
5211 PR 

256 PR 


FOLIOS ERRROR RECOVERY 

CONCURRENT MAINTENANCE 
PRINTER/DISPLAY ERROR ROUTER 

1255 ERROR TRANSIENT 

1/0 ERROR TRANSIENT 2 
REMOTE W/S LOGGING XIE 3 
SET ADDR. COMP. REGISTERS XIENT 3 
SYSTEM MEASURE FACILITY XIENT 3.5 
262 PRINTER ERP XIE! 

1255 TRANSIENT #2 

NON-SWAPPABLE GET PAGE XIENT 

FAST MATRIX PRINTER ERP XIENT 


15 


DATE 81/12/08 


SPL/3 VERSION 08/28/80 
Ol} IF DO LINE SOURCE 
3411_* OOXX - CONSOLE MODE * 
3412 * 0110 - COMMAND NODE = * 


BMCNSL EQU X‘40' 
3416 TUBMWSTN EQU  X‘40' 
3417 TUBACHD €Q 

3418 TUBMDATA EQU X‘10' 
3419 TUBE EQU  X'70' 
3420_ TUBMINIT 
3421 SPACE 


3426 SPACE 


3428 SPACE 
3429 TUBIIS EQU xX‘'a' 

Bint, FQ X‘@0" 
3431 TUBIPS §=EQ X‘20° 
3432_TUBIARE QU X‘10' 
433 TUBSIIS EQU 


3427 TUBATTRS EQU «TUBATTR2*1 = INVITE INDICATORS 


C29 
PAGE 63 


0101 ~ DATA MOO 8 
0111 - INTERRUPT MODE ® 
3413 AARARRAARARAAARAAARAAKRARRARARARRARRARRERRARAAAARARARRARRARERARRARARARA 
QU _X'80' ~_TERMINAL_IN STANDBY MODE (OND 
« TERMINAL IN CONSOLE MODE (OFF) 
+ TERMINAL IN WORKSTN MODE COND 
X‘20° -_ TERMINAL IN CO 

« TERMINAL IN DATA MODE COND 
- TERMINAL IN DATA MODE ESCAPE COND 
- TERMINAL IN INITIAL MODE (OFF) 


3422 ‘TUBMENUA EQU X06" . MENU DISPLAY ACTIVE 
3423_TUBSTATA EQ X‘04° - STATUS DISPLAY ACTIVE 

3424 TUBINPA EQU  X‘02' « SYSIN/SYSLOG DISPLAY ACTIVE 
3425 TUBISGA EQ X'Ol' - PSG DISPLAY ACTIVE 


-_ IWITE SCHEDULED TO TUB 
- IMPLICIT INVITE TO TUB 
~ TUB INVITED VIA PRUF 

- ATO MAE IWVITE 
. SAVE FOR TUBIIS 


TIME 02:15 


3466 


Way Wl a Wid y Ui alg 9 SIS BOTS 8 SIG BIR aE 


4 
* 


PPE ERE EE 


SPL/3 VERSION 08/26/60 
01] IF 00 LINE 


TUBMRDTA EQU 
TUBSRILK EQU 


EL: 


gaa yay 


oh ong 


a’) 


s a | "| ee pe Fy 
TR TT 
Bis 8 a8 ° Ri 4 
Se beieé D6 Slee Se be 


died |gaaeadaadyagaay 


sa otis oo 


Eee ee gt eee ee ee ee A! ee ee: ee ee ea ae 


678* CONSTANT SPLIT INTO A LEFT BYTE AND RIGHT BYTE FOR THE LI * 06790000 [13 


679% INSTS. ® 06800000 
680 RARRRRAAKRRKARKRAKRAKRAKRAKRARKKAAKRAKAAARKARARARKRARAARAAARAAAARARAARRAKRAAAK 06810000 
H Ai 
682 RARRRARKAAKRAKRARRAKRAKRAARARRARARAARARAARRAAARARAAAAAAAAAAARARAARAKRAERAK 06830000 
683 ® ‘NON-CONSTANT ' NUCLEUS TRANSIENT AREA WORKSPACE. x 06840000 
684 * THESE EIGHT WORDS MUST START AT THE FIRST WORD IN THE DIRECT AREA * 06850000 {15} 
685_* BECAUSE THEY ARE ALSO COMMON TO THE INPL WRAP ROUTINES ® 06860000 
686 RAAKRAAAAARAARA: KRRKRRAARAAARRARARARAKKRAAAARAKRAARARRKRARRARAAAARAAKAAAAAK 06870000 
0000 687 DINUXNTO EQU 0 XTENT WORK SPACE # 0 06880000 {16| 
0001 688 DINUXNT1 EQU DINUXNTO+1 —_XIENT WORK SPACE # 1 06890000 
0002-689 DINUXNT2 EQU  DINUXNT1+1 — XTENT WORK SPACE #2 106900000 
0003 690 DINUXNT3 EQU DINUXNT2+1 —XIENT WORK SPACE # 3 06910000 17 
0004 691 DINUXNT4 EQU _DINUXNT3+1 _XIENT WORK SPACE # 4 06920000 
0005 692 DINUXNTS EQU DINUXNT4*1 — XIENT WORK SPACE # 5 06930000 
0006 693 DINUXNT6 EQU DINUXNT5+1 —XIENT WORK SPACE # 6 06940000 
0007 694 DINUXNT7 EQU _DINUXNT6+1 —_XIENT WORK SPACE # 7 06950000 
695 ® 06960000 
0000 696 DIDSKTAB EQU DINUXNTO DISK EXTENT TABLE CUSED BY IPL ONLY) pedboed 
0004 697 DIDSKTBL EQU 4 LENGTH OF A DISK EXTENT TABLE ENTRY 
SPL/3 VERSION 08/28/80 PAGE 64 = TIME 02:15 DATE 81/12/08 
Ol] IF 00 LINE SOURCE D1 
3466 TUBMROTA EQU  X‘08' «MRT PROC WITH DATA ENTERED 
67 TUBSRILK EQU  X‘O4" . SAVE/RESTORE INTERLOCK 
0 3468 TUBHPND EQU X‘02' . HELP FUNCTION PENDING 
3469 TUBKBULK EQU X‘O1' ._ KEYBOARD UNLOCKED 
3470 SPACE 
0 3471 TUBCTSAV EQU TUBATTR6*2 © SAVEAREA FOR TUBCOUNT 
3472 TUBAPRNT EQU  TUBCTSAV+2 _ID OF ASSOCIATED PRINTER 
73 BECT EQU TUBAPRNT+1 © MESSAGE COUN 
04 3474 TUBPOGRT EQU  X'80" . LEVEL © INQ MG6G HAS BEEN REROUTED(REL4) D4 
3475 _TUBMSGR2 EQU X'40' ._ LEVEL 1 INQ P66 HAS BEEN REROUTEDCREL4) 
6 SGN. EQU = TUBRGGCT+2 ASSIGNED BUFFER LENG 
05 3477 TUBASGNA EQU TUBASGNL+2 © ASSIGNED BUFFER ADDRESS bs) 
3478 SPACE 
‘9 TUBATTR? EQU 


je ENT 1/0 ERROR ON THIS TUB 
07 A DSL OHS 


SOUND ALPEN AD TU ON LIGHT 


seo 
wm neu x"80° . 
33 nt 


[ 
rm SERVE Bioge | 
4 
=) f 
TURELN ES TUBATTNO<2 «= HELP REY IC AEA 
Tae oem GR CALJI CRMCTER Cl AID SEES 
Bo) Wat 
Tan 
7 RE © iS 18 WS : 
. 5 
5 Sa? © 7 1S i : 
1H i 


ead 


Su RLS TRETSEe1 ECT FRE — SELITINE DTSPLACENENT 
mp * 


SPL/3 VERSION 08; 


IF DO LINE 
3521 


URE EEE HEN EPSP BP ee B 


Ne 


PEPPER CREE CLE FER EF, 


ii a 9 Se ie Oe le Ble & le B BIS & BIB & Sle B SIS 


ee ey 8 re eS ate eee, Pe ate ete 


LI ® 06790000 {13} 732 * ® 0 - THE DUMP FILE IS NOT PROTECTED 07330000 |13 
® 06800000 733% * 1 ~ THE DUMP FILE IS PROTECTED 07340000 
RRRARRRK 06810000 0040 734 DMPINPRG EQU § X‘40' STORAGE DUMP CURRENTLY IN PROGRESS 07350000 
14 735 * ® 0 - NO DUP IN PROGRESS 07360000 | 1 
RERRRRRK 06830000 136 * ® 1 - STORAGE DUMP IN PROGRESS 07370000 
® 06840000 0020 737 DMPSUSAC EQU = X‘20' SUSPEND TASK FOR ADDRESS COMPARE DUMP = 3 07380000 
AREA 06850000 115) 738 * * 0 - DONT SUSPEND TASK FOR DUP 3 07390000 | 1! 
x 06860000 739 * ® 1 - SUSPEND TASK AFTER DUMP 3 07400000 
RARRRARR 06870000 740 *® EQU X'10' UNUSED 07410000 
06880000 {16 0008 741 MPIOBERR EQU§ X'08' MULTI-PURPOSE I0B ERROR INDICATOR 07420000 |16 
06890000 742 * * 0 ~ NO ERROR IN MULTI-PURPOSE 108 07430000 
06900000 743 *® ® 1 ~ PERM DISK ERROR IN M.P. I0B 
06910000 17’ 0004 744 PSIPLF1 EQU xX‘04' IPL FROM DISK INDICATOR 07450000 | 17 
06920000 0002 745 PSIPLI1 EQU X‘02' IPL FROM DISKETTE INDICATOR 
06930000 0001 746 MLCA32K EQU xX'Ol' MCA 32K CO 
06940000 747 RARAAARKAAKKRAAAAAAAKAAKAARAARKRARAAAAAKARAKKRKAARAA AAA KAA AAAAAAARARAARAERRA 07480000 18 
06950000 748 * CONTROL STORAGE SIZE IN SECTORS (LOW BYTE * 07490000 
06960000 149 RKRRRAARARRRKRKRKAKRHAAARAKRAKRRARAKRARRAKARARARAAAARAKAAKARAARAAKAKRAAKARAAK KKK 07500000 
1) 06970000 19 750 ® 07510000 | 1 
06980000 751 RRAKRKRRAKRARARAKRAARRARARRRAKRAKARAAAAAKRKRAAKAARRARRAAKRAKAAAARAAKRKRAARRAK 07520000 
= 
20 
C31 
TIME 02:15 DATE 61/12/08 SPL/3 VERSION 08/28/80 PAGE 65 = TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28 
D1} IF DO LINE SOURCE Ol) IF 00 LINE 
3521 TUBCMSK1 EQU TUBRFDSP+1 — FIRST COMMAND KEY MASK BYTE 3576 TUBATTR 
TUBCOS EQU X‘80' ENABLE COMMAND KEY 8 577 
, 3523 TUBCMD? €QU X‘40' ENABLE COMMAND KEY 7 0 3578 = TUBKDPL 
3524 TURCMDG EQU  X'20' ENABLE COMMAND KEY 6 3579 TUBKKBD 


3525 TUBCMDS EQU  X*10' 3580 TUBMKAN 
3526 TUBCYD4 EQU X‘08' 3581 TUBGAIJ 
3527 TuBCro3 EQ X'04° 


afi 

iii 
EEE 
g 


BUGS RRR REG UES Ee Eos See EEE SER SEUSS SYR eee eee ee 


3528 TUBCM2 EQ Xx‘02‘ ENABLE O D KEY 2 
D4 3529 TURCMD] EQU xX‘Ol' ENABLE COMMAND KEY 1 04 . 
3530 TUBCMSK2 EQU TUBCISKI+1 SECOND COMMAND KEY MASK BYTE . 
9531 TUBCYDI2 EQ = X*80" ENABLE COMMAND KEY 12 TUBOGTU 
05} 3532 TUBCYD11 EQU  X'40" ENABLE COMMAND KEY 11 0 . 
3533 TUBCDIO EM (X‘20° ENABLE COMMAND XEY 10 TUBATTR 
534 TWD EQU  X‘l10° ENABLE COMMAND KEY 9 
6 3535 TUBCH24 FQN x‘08" ENABLE COMMAND KEY 24 TUBOILE. 
TUBOUNG., 
Fi TUBORIT| 
TUB2RF 
TUB2I6 


(EBB) 


ME 02:15 


DATE 81/12/08 


786 * EQ X'80" UNUSED. 
0040 787 DSPRGRST EQU  X'40' TASK REGISTER RESTORE REQUIRED. 
0020 788 XAREAREF EQU  X‘20' TRANSIENT AREA REFRESHABLE 
0010 789 DSPADACT EQU X‘10' DISABLE TASK DISP, ALTER/DISPLAY ACTIVE. 
0008 790 DSPFCUR EQU  X'‘08‘ FORCE SWAPOUT OF CURRENT TASK. 
0004 791 DSPERPND EQU X‘04' DISABLE TASK DISP, MSP ERR PENDING 
0002 792 DSPHOLD EQU X'02‘ TEMPORARY REQUEST TO HOLD DISPATCHING 
0001793 DSPEXAM EQU  X‘01' EXAM INDICATOR 6 
7194 * LOW BYTE 
795 * 


196 RAKRAKARARAAKRAARAKARAKARAAAARAAAARRKKRAARAAAKAARAARKAARAKAERAAERRAKKAKARAAR AAA 


797 ® ALTER/DISPLAY CONTROL WORD * 


198 RRAAKAARAAKRAKRAAARAARRAARAKRAKRARRKAAARARRAAKRAAAAAKAKAAKAAKAKAKAAKAAAAARKARRAK 


0025 799 DIADCNTL EQU  DIDSPFLG+] —_ALTER/DISPLAY CONTROL WORD 
HIGH BYTE CONTROL BITS 


0080 803 ADEXIT EQU X‘80' EXIT ALTER/DISPLAY. 

0040 804 ADSYSDMP EQU  x‘40' ALTER/DISPLAY SYSTEM DUMP REQUEST. 
0020 805 ADINQURY EQU X‘20' DISPLAY A/D OPTION MENU. 

0010 806 ADTRACE EQU X'‘10' INSTRUCTION TRACE, STEP, ADDRESS COMPARE 


SPL/3 VERSION 08/28/80 PAGE 66 = TIME 02:15 OTE 81/12/08 SPL/3 VERSION 08/28/8 
Ol] IF DO LINE SOURCE Oly IF 00 LINE 
3576 TUBATTRE EQU TUBDMATX*] ATTRIBUTE BYTE 11 3631__TUBKPNTR [ 
3577 SPACE 3632 TUBGAL JP | 
02 3578 TUBKDPLY EQU X‘80' - IG CAPABLE DISPLAY 0 3633 -* f 
3579 TUBKKBO EQU  X‘40' - 1GC CAPABLE KEYBOARD 3634 * [ 
3580 TUBMKANJ EQU = X'‘20° . THIS SESSION IN IGC MODE 3635 * f 
03) 3581 TUBGAIJD EQ X°'10° . EXTD PROCESSING ON 3636 * f 
3582 TUBRJFOV EQU X08" - FILE OVERFLOW OF THE REJECT FILE 3637_-* f 
3583 ; 3638 * f 
104) 3639 TUBPLPI & 
5 3640 * 
[ 3586 TUBOGTUB EQU TUBATTRB*2 © DISPLAY STATION POINTER TO GAIJI TUB 3641 * 
is 3587 * REFERENCE GEXTB MACRO FOR DESCRIPTION 05} 3642 TUBPERES € 
i 3568 TUBATTRC EQU TUBDGTUB+] ATTRIBUTE BYTE 12 3643 TUBPELEN E 
3589 SPACE 4a * 
06 3590 TUBOILGJ EQU X'80" - 0 OPTION TAKEN ON INVALID EXTN CHAR 06 3645 *** END OF 
3591 TUBOUNGJ EQU § X°40° ._0 OPTION ON AN UNDEFINED EXTN CHAR 3646_—* ] 
3592 ~ 0 OPTION ON A RAP FULL ERROR a7 * 
0 - 2 OPTION TAKEN ON A RAR FULL ERROR 07) 3648 * GENERAL 
- 2 OPTION ON AN INVALID EXTN CHAR 49 * 
ner INE 1: 3650 TWAPUT 
09 ‘ 3651 TWAGET € 
3652 _TWASYS 
3653 GA E 
09 3654 TUATA E 
( 3655 TUAREAL 
3656 TUAMLATE £ 
iu 57 * 
3658 * WORKSTAT 
59 ze 
3660 TPPOEDW £ 
3661 TURPPSI2 £ 
3662 TUPPS34 £ 
LZ 3663 TUNPPSSO E 
3664 TURPPSTS E 
3665 TURPPSOA E 
3 3666 TUAPPSEC & 
f 3667 =TWRPPSDE £ 
4a TIMED 6 
I 3 TRAC FE 
i 3670_ REPS E 
m a; ASA E 
5 é 3672 TSE & 
5 3673 TUPUGER & 
a  : 
nG * 2 3675 TALC & 
* % +9 * 
wz * i ra ~ 3677 TURAGSS © 
bv 3ez3 TPL CS EST] LE GF A PTE I 73 TEC 6 
ae ere 
a ba] MeO OT 
I em eI 
wear ee? 
rs " ees Th 
es 
DOES 


VWUS GO CANT Cw AUS CART UNUICATUR TUR ND GEIF AICNT =O 
840 * EQ X‘02' UNUSED. 08410000 | 13 
841 * EQ X‘o1' UNUSED. 


842 ® LOW BYTE 
843 * ‘ 1 
844 an 
15 
16 
RAKKKA 
x 
RRARRK 0027 852 DIASRFLG EQU DISYSFLG+1 — ASSIGN RECOVERY FLAG 17 
0080 853 ASGNERR EQU  X'80' PERMANENT ASSIGN FAILURE HAS OCCURRED. 
0040 854 AFINPROG EQU  X'40° ASSIGN RECOVERY IN PROGRESS. ; 
0020 855 ASGNSEQ EQU X‘20° ASSIGN RECOVERY SEQUENCE HAS BEEN STARTED 18 
0010 856 ASGNPAGE EQU  X'10° A PAGE HAS BEEN ASSIGNED. 
0008 857 ASGNUATR EQU X08" ASR WAITER OUTSTANDING MUST RECOVER 
OOF 858 ASGNRTRY EQU X‘OF' MAXIMUM NUMBER OF RELOOPS 1 
859 * LOW BYTE USED FOR A COUNTER 
860 x 
C33 
TIMe 02:15 Cte 61/12/08 SPL/3 VERSION 08/28/80 PAGE 67 ‘TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28 
ll IF 00 LINE SOURCE Ol] IF 00 LINE 
3631 TUBKPNTR EQU  X'80' . IGC CAPABLE PRINTER 3686_* 
3632 TUBGAIJP EQU X*40" ~ EXTD PROCESSING ON FOR THIS PRINTER 3687 * 
02 3633 -* EW x'20° . RESERVED 0 3688 * COMA 
3634 * EQ Xx'l0" ._ RESERVED 3689_* 
3635 —* FQ KOs" ~ RESERVED 3690  TWAPNUS 
03 3636 * FU X‘04" . RESERVED 0 3691 TUAASCO 
3637_-* eq x‘02" ._ RESERVED 3692_* 
6 3638 * EW X‘OI" ~ RESERVED 3693 TWCEN 
04 3639 TUBPLPI EQU TUBPATRI¥1 LINES PER INCH 04 3694 TURAQO 
3640 * LEFT NIBBLE = LAST VALUE SENT 35 * 
wal RIGHT NIBBLE = DEFAULT VALUE 3696 TWAACUR 
3642 TUBPERES EQU TUBPLPI+10 RESERVED AREA 3697 TWAASCS 
LENGTH OF A PRINTER TUB WITH ADDITION 3698 _ TWARCNS 
3699 5S 
3700 TWASSTA 
3701 TUNER?’ 
a 
3703 TeCSH 
708 * 
ty ® 
3706 * TA 
3707 * 
108 TUNG 
3709 TAR 
3110 TURUEX 
Til TUAKSS 
3712 TAN 
3713 TLEN 
r wan FD 
mS * 
Bie meme te 
r : yet 
wes 3 
We ATT 
7 i 
3721 
ST22 PORTA 
7 * Gem 
3724 RIN 
a 
Pr] 
3733 
37 * OR 
Bras Re etsiaa ass 
3739 BRSMBED 
Bia) AFD 


OF) ~ 
0037 894 DISTKSAV EQU DIGPFLAG+] © STACK POINTER SAVE AREA 
0038 895 DIGHSAVE EQU DISTKSAV+] —_ SAVE AREA IN QUEUE ROUTINE FOR Q HEADER 
0039 896 DIIPIOBa EQU DIQHSAVE+1 © ADDR OF IPL I0B CVALID OURING IPL) 
0039 897 DITRACEA EQU DIIPIOBA ADDR OF DISK TRACE ACE CVALID FOR TRACE 
003A 898 DITRIOBA EQU DIIPIOBa+] ADDR OF TRACE IOB 
003B 899 DITIACEa EQU ADDR OF MS INTERVAL TIMER ACE 
900 * 
90] RRRRAARAARAARAAAAAAARAARAAAARRRARARRAARARRARRARARRARRARRARRRARR ARR ARR, 
902 ® ‘CONSTANT’ AND ‘NON-CONSTANT’ POINTERS TO MAIN STORAGE ITEMS 
OZ RXRAAARRAAARARAAAAAAAARRARARRARAAARAAAAAARERARARRAARARARAAARRARARRRARRR, 
003C_ 904 DIFRCTCB EQU DITIACE@+1] _ FORCE OUT CURRENT TASK 1CB ADDRESS 
0030 905 DIDSPTCB EQU DIFRCTCB+1 © CURRENT MAIN STORAGS TCB ADDRESS 
OO3E 906 DICURJCB EQU DIDSPTCB+1 CURRENT JOB CONTROL BLOCK ADDRESS 
0O3F 907 DIQUEVE@ EQU DICURJCB+1 QUEUE HEADER START ADDRESS 
0040 908 DIRTTABL EQU § DIQUEUE@+] = RESOURCE TABLE ADDRESS IN MAIN STORE 
909 * 
Q1D *RRRAARAARAAKARRRARARARERARRARRAARARAARRARRERRAREARER ARERR ERIK RAR RIIR ET 
911 * "NON-CONSTANT' POINTERS TO MAIN STORAGE ITEMS i 
G12 RRRARAARAARARARARAARARARAAARARERERARRERRARRERAEREARARRAARRARARRARAARRRR 
0041 913 DIILSWRK EQU  DIRTTABL+1 WORK AREA FOR USE ON ILS 
0042 914 DISAVEIN EQU  DIILSWRK+] POST ROUTINE INPUT SAVE AREA 


E 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/80 A SPL/3 VERSION 08/28/8( 
yl] TF DO LINE Ol] IF DO LINE 
3741__ROPEN 
3742 RCLOSE 
0 3743 REOJ 
3744 RSLOG 
3690 TWAPMUSE EQU = 00 TAG 00- NOT USED 3745 RSLIST 
03 3691 TWASSCO] EQU Ol TAG Oi- SYSTEM CONSOLE IMAGE 0 3746 RSIN 
3692 * 07 TAG 07- END 3747 __RSGET 
3748 -RSMSG 
04 3749 RLIBRY 
3750 
3751 
05 3752 
3753 
3754 
« STATUS SAVE AREA (39-50) 06; 3155 
TAG 51- 1/0 ERP SAVE AREA FOR MSG BUILD 


SYM ENic asses 
g 
8 


07 3703 THRCIQ 


3 
» 
3 
a 
3 
a 
F 


3756 
3757 
TAG 50- CONSOLE SYSLOG MESSAGE QUEUE. 0 3758 
379 
3760 


PEE EEE i 


FY 
a 
5 
cy 


TWESS*1 CONTAINS LENGIM OF rep FIELE 


EERE GEE 
VEU EE BEER 


4 
' 
4 
4 


af 
| 
BD Bl BS SS Se we ew SS se ae ew ie oe ies em poles ee mie oe ein oe mio @ mie eM aie main mm enion om mie om mien m= ale 


4 
TT 


| 
1 
{ 
i 


PRETER LLC LE CEE LEE EE 


PPULED PL TEL 


Bc, Maa ar a eka ata i Lik et lt la ttle tl lead el a ha aie Ll 


0056 948 DIXR1  EQU DICURTRB+1  XR1 

0057 949 DIXR2 EQU __DIXR1+1 XR2 

0058 950 DIARR  EQU  DIXR2+1 ARR 

0059 951 DIIAR  EQU  DIARR+l TAR 

OO5A 952 DIPMRPSR EQU DIIAR+] ———PYAR_AND PSR 

005B 953 DIRQ EQU  DIPMRPSR+i ~=—s RAND Q BYTES 

0O5C 954 DIINLI2 EQU  DIRQ+1 INLINE PARAMETERS 1 2 

005D 955 DIINL34 EQU  DIINL12+1 INLINE PARAMETERS 3. 4 
x 

- RHKRAKKRRAERAKRAARARAKRAKRAKRAKRAARRAKAAAAKAKAKRAARAKAK KKH KKARAARAAAERRAKRERERA 

958 * IL5 WORK AREAS FOR HPIOCH 

959 RARARERRRRAKRAKARAKRARAKKAKKRAKRAAKARAKRAERAARARKKKKAA KAKA AAA AAARAAKAKRKKAKK 

960 DLUNUSSE EQU = DIINL34+1 >>>>> UNUSED <«<<< 

961 DIIL5PCR EQU  DIUNUSSE+1 — CMR/PCR SAVE AREA. 

0060 962 DIHPCSDA EQU DIIL5SPCR+1 = MSP CONTROL STATIIS - © CHNL DEVICE ADDR 


0080 963 HPASGERR EQU X'‘80' ASSIGN FAILURE HAS OCCURRED. 
0040964 HPSTART EQU X‘40' START THE MSP BEFORE EXIT 

w 0020 965 HPI2SVCA EQU  X'20" POST SVC FROM [L2 [S IN PROCESS 
0010 966 HPCSSWC EQU X'10° CS SVC REQUEST 
0008 967 HPNOTBSY EQU X'‘08' MSP_NG} BUSY (NO TASK AVAILABLE) 


0004 968 HPWAITNG EQU  X'04" MSP WAITING .FOR START KEY 


C35 
02:15 DATE 81/12/08 SPL/3 VERSION 08/28/80 PAGE 69 = TIME 02:15 DATE 81/12/08 SPL/3 VERSION 08/28/8( 
Ol) IF 00 LINE SOURCE Ol} IF 00 LINE 
3741 ROPEN  EQU X'02" OPEN 3796 _RGLFR 
Q 


( 
3742 RCLOSE ~EQU ‘03° CLOSE "3797 -RGLFAC 
3743 REOQJ = EU X'04" END-OF-J0B 02 3798 REXTNP | 
3744 RSLOG = EQU. —X'05° SYSLOG 3799 RSIEC CE 
3745 RSLIST EQU xX'06" SYSLIST 3800 RICDD 
03 3746 RSIN EQU X'07" SYSIN 03 3801 RWDOU 
3747_RSGET EQU X'08" SOURCE GET 3802 RWOT 
3748 RSMSG =EQU. X‘09" MESSAGE RETREIVE 3603 RWEGE 
04 3749 RLIBRY EQU X'OA' LIBRARY OPEN/CLOSE 04 3804 RROOM 
3750 _RVTOCFD €QU  Xx‘OR' VTOC_READ/URITE FD 3805 RWOHH  E 
3751 RALLOC EQ X‘OC’ ALLOCATE 3806 RSPOMG 
05) 3752 ROALOC =EQU X'0D' DEALLOCATE 0 3807 RXTEND £ 
3753 RSALOC EQU  X‘OE’ SPECIAL ALLOCATE 3808 ‘ 
3754 RINFO = EQU X‘OF’ RETRIEVE SYSTEM INFORMATION 3809 XFLENBYT E 
06 3755 RVTORD EQU xX‘10° VTOC PEAD/WRITE RD 06 3810 XFLENWRD £ 
3756 RSNAP EQU OX‘I1' SNAP_DUMP 3811 *** END OF 
3757 RPGHLT «EQ OX‘12° RPG HALT 3812 SENDGEN: 
07 3758 ROMCALL EQU X'13' DATA MANAGEMENT CON; 20LLER 07 
3759 _RPRALGN EQU X‘14° PRINTER ALIGNMENT 


3763 RSD QU OK'18° 
3764 RFINDLIB EQU X‘19" 
3765 _RAFA EQU OXIA 


3767 RSPALC EQUOX“IC* 
3768 RCPERR QU X‘ID' 


3175 
3116 
37 
3778 
3779 WO 
370 Som Bw Ke es 
3731 SP OZ‘ “s 
7 72 we ow KB SEURITY 3 
78 ao aw xa COVWUD OC INTERFACE, | 
a a: ee 1/0 Ge TROBE i 
1g 35 MEX 6G OK'2E’ ‘SOF EXTERD TROSIENT 5 
3% SO ye Na OF GPOATE TR IONT 
a a: eo Tit ML lel 
1 378 Rec fw KS Fo Tee t 
3m RA OAR To CO 4 
30 Re OE OK™33" OF OWE) 4 
Ls 2 Re 6 OK TOF ww 4 ie 
32 RK 6 KH" aR EXTERSION 3 
oe a a a ‘SORT TRO TEW rl 
i Fon REA EB KSI" ERTENOED TRADE a oI 
oS a = OK Be" GDh TRANS TNT 


| EE Se, Se ae bn nl A baal MEN EU CU NR SOUT POE whe 


006D 1002 DiROCS Q/R BYTES TO READ INTO CTRL STG 


O06E 1004 DIWANS DLROCS+1 Q/R BYTES TO WRITE FROM MAIN STG 
006F 1005 DIWRCS DIURMS+1 Q/R BYTES TO WRITE FROM CTRL STG 


DIURCS+1 DISPATLHER/ SWAP TIME INTERVALS 
>> TASK TIMER INTERVAL: « 
003D_1009 RCHINT EQU 61 >> 61 TIMER UNITS = 499.712 MSEC. <#estwst 


101] RRXARRAARARARAAAAAAKAARAARAARAARAARAAAARAAKAARAARAARARRARAARKRARRAK A AAR, 


1012 * NON CONSTANTS FOR MSP ERROR RETRY STORAGE CORRECTION * 
1013 *RARRRARRARRARRARRRRAARRARRURARRAARRARRARARARRERARRERRARRARRRARRER ERATE, 
1014 * 

0071 1015 DIHCSTGa EQU  JIDSTIME+1 — FAILING MS ADDRESS 
1016 * 

0072 1017 DIHCSTGD EQU = DIHCSTGA+1 CORRECTION FLAG / CORRECTED DATA 


1019 RRKKRKKRERRARAAARAAAAKRARRARRRKRAKRAKAAAKAAKARAKARRKRKKKREKKRRAKKRARAAK AK 


1020 * ALTER/DISPLAY WORDS FOR ADDRESS COMPARE/VERIFY FUNCTION * 


1021 RRKARKKRARAAAARAKRARRARAAARAKAKAKKRARRRAKAARAARAKAARAKAAAKREKKRAKKKRAKAAAK KKK 


C36 
ais DATE 81712708 SPL/3 VERSION 08/2670 PAGE 70 TIME G2:15 GATE 81/12/06 
Ol] IF DO LINE SOURCE 

3796_RGLER EQU _X‘39° GLF _ TRANSIENT 5 

RGLFAC EQU X"3A° GLF TRANSIENT 5 

3798 REXTNP EQU  X‘3B* EXTENDED PRINT 6 

RSMEC QU X"3C' SME COMM. DATA COLLECTION 6 

PEER MULTIPOINT 6 


WSDM XIENT 


ROOM TTC XTENT CALL 
WSDM_XIENT 

SPOOL QUEUE MGMT XIENT 
LAST VALID ENTRY 


3009 XFLENBYT EQU RXTEND*4+4 LENGTH OF KFER TABLE CBYTES) 
XFLENWRD EQU RXTEND*2*2 LENGTH OF XFER TABLE CUDRDS 
*** END OF EXPANSION ** 


TS]? * D370 DISKETIE ERROR ACE 


1 ECM ~ EVENT CONTROL MASK OFFSET 10600000 {1 
X80" «EVENT ACTIVE 10610000 


0040 1061 ECNCPPL EQU X*40° ~ ECB COMPLETE 10620000 
1062 * EQqU X'20' « RESERVED 10630000 |1 
0010 1063 ECMLOCK EQU  X'10" . LOCK BIT 10640000 
1064 * eq x'08" ® 10650000 
1065 * fu x'04" ® COMPLETION CODE 10660000 |1 
1066 * fQU  x'02' ® 10670000 
1067 * eq XI ® 10680000 
0003 1068 ECNEW = EQU 3 ECM - GENERAL WAIT MASK FIELD 10690000 |17 
0080 1069 PREEMPT EQU  X'80' . DO NOT PREEMPT BIT 10700000 
0040 1070 PLIFO  EQU X*40° ~ LIFO QUEUE REQUEST 10710000 
1071 *** END OF EXPANSION ** 10720000 |18 
1072 * ERB 10730000 
6001 1073 ERBDCHY EQUI CHAIN FIELD 10740000 
1074 * 10750000 |1 
0002 1075 ERBDDVI EQU ERBDCHN+! —_DEVICE ID 10760000 


0000 1076 ERBDISKT EQU X'‘DO" DISKETTE; DEVICE ID 12/6/79 RJB 


001 


SPL73 VERSION 08/28/60 PAGE 71 ‘Tite 02:15 DATE 81/12/08 

Ol] IF 00 LINE SOURCE Ol} IF 00 LINE 
3813 MSCPRYNT: 01120000 3833 
3814 PROC OPTIONSCNOSAVE, [D=CTDN=MSCPR, ATTR=E09100, RLD=0, NOD=0, 01130000 3834 
02 3815 ORE=08), START=NUAXIENT); 01140000 02 3835 
3816. /* */ 01150000 3836 
3817 tT RAKRRRARKARARARARAAARARAARARARAARN: RRR RARAAAKRAKRKRN: RRARRARRARRAR / 01160000 3837 
03 3818 /* GET SPACE FOR A JOB CONTROL BLOCK. iT WILL BE USED BY SPOOL,  */ 01170000 03 3838 
3619 _/® JOB QUEUE, AND HISTORY OVERFLOW INITIALIZATION ROUTINES. */ 01180000 3839 
BI) tT Ty ry RR RRARRR' RARARRRRAAKARAARRAKRKKKKRRAARRARARRARKRARAAAN 01190000 3840 
0 3621 /* */ 01200000 04 3841 
3822 GEN; /* GET SPACE FOR A JCB */ 01210000 3842 
623 * ASSEN LEN-JCB 01220000 3843 
05) 3824 SVC SVCASSGN,O © ASSIGN REQUEST 0 3844 
3825 DC _AL2CJCBLLNTH) ASSIGN LENGTH 3845 
3826 Dc AL1C1+0) ATTRIBUTES 3846 
06 3827 *** END OF EXPANSION ** 06 3847 
3828 @ENDGEN; 01230000 3848 
3829 REGCKR2)=SCADMTUBC1:2); 7® GET CONSOLE TUB JCB ADDRESS */ 01240000 3849 
07) 3830 REG(XR2)=XR2->TUBJCBAC 1:2); * */ 01750000 07 3850 
3831 XR1-> JCBLLNTH-1(1:112)=XR2->VARCICBLLNTH-1); /* COPY TO NEW JCB */ 01:'50000 3851 
g NURCPTCB+TCBICBAC1:2)=REGCKRI); /* STORE JCB ADDRESS IN CP TCB */ 012:9000 sc 

OS 
3854 
3855 
09 3856 
3857 
3858 
10 3859 
3860 
3861 
ul 3862 
3863 


whe * WE: “FASK JNK BREA SPACE TS PMDIGHTED BY B FRACK PEP 


NOSTTOX. EQ WUMCPTOBANULCP TOR “PAGK WORK REA IWDEX CLEFT) 
WOK QU BH ‘CENETH (DF REN G280 ERTRIES) 
RUSTE EQU  MURTURALAULTUR~1 PASK MORK AREA INDEX CRIGHT) 


0008 1113 f 
0004 1114 E 
1115 

16! 
0003 1117 E 
0002 1118 £ 
0001 1119 


SPL/3 VERSION 08/28/80 


GENCTITLE ‘MAL 
7® 
[RARERARERIERRERIRR 
/* FILE REBUILD, # 
7*® A SEPARATE TASK 
7® 


/* A SYSTEM COMMUN 
/*® SET ON TO INDIC: 
/* THAT IPL IS IN | 
i 
/* SSBLD WILL RUN 
/* STARTED UNTIL I! 
[RRERRRARERRARERRES 
/* 
REGCXR1>=ADOR CN 
XR1->SCASYS1=0NC 
XR1->SCASYS2=0NC: 
XR1->SCAIPLIK+ 1( 
/* 
[SRRRKARRARRARRRERE 
/* DEALLOCATE TVA 1 
7* TO INSURE THAT 1 


SERRE aRe ee? 


4 


BRIS Big e “ee > 


UL 
gees 
TE 


DATE 81/12/08 


a ee a A 


0008 1113 ERBFOST EQU = Xx‘08' TUB POSTED COMPLETE WITH ERROR (CP ONLY) 
x04" THIS ERB IS IN RETRY MODE 
G TWO BITS (X'02' AND X‘OL' ARE ENCODD TO DEFINE 3 ERROR 
~ THE 4TH CONDITION IS UNUSED. 
RESOURCES UNAVAILABLE 
ARDUARE 


1122 * DISK , DISKETTE , AND 1255 ERROR RECOVERY 
0001 1123 ERBPTASK EQU X‘01' POST TASK HAVING 1/0 ERROR TO CALL THE 
1/0 ERROR TRANSIENT BACK INTO STORAGE. 
1125 *® 
1126 ® MLCA ERROR RECOVERY 
0001 1127 ERBCELOG EQU = X'O1' TF ON LOG TO CE TRACE AREA 
1128 *® IF OFF LOG TO USER TRACE AREA 
li29_* 
0006 1130 ERBDCPA EQU  ERBDFLG+] CP AID COLD EQUATE VALUE) 


eovyv 


0008 1168 FIADDA 
0008 1170 FIADSD 


O00C 1172 FIADTY 
0080 1173 FLAMIN 
0040 1174 FIANCO 
0020 1175 FLAN! 
0010 1176 FILAMRD| 
0008 1177 FIAYPE 
0004 1178 FIAMTE! 
0002 1179 FIAMJO 
0001 1180 FIANSC! 


0000 1182 FIADSFI 


1184 RRARKKI 


SPL/3 VERSION 08/28/80 


Ol] IF DO LINE SOURCE Olj IF 00 LINE 
3889 
; 3890 
e [PRRRARARARAARRARRERRARRARRARAAAAARARRAARARARARRAR RAR ARERR RARER 7 01300000 02) 3891 
/* FILE REBUILD, @MSBLD, IS CONSIDERED AS PART OF IPL, BUT RUNS AS */ 01310000 3892 
3837 /® A SEPARATE TASK AND NOT UNDER THE COMMAND PROCESSOR AS IPL DOES. */ 01320000 3893 
03 3838 /* */ 01330000 03) 3894 
3839__/* A SYSTEM COMMUNCIATION AREA FLAG ‘SCAMRBLD’ IN BYTE ‘SCASYS1' IS */ 01340000 3895 
3840 ~~ /* SET ON TO INDICATE TO ANY ROUTINES THAT WILL BE CALLED BY *SBLD**/ 01350000 38% 
04 3841 /* THAT IPL IS IN PROGRESS. */ 01360000 04 3897 
3842 /* */ 01370000 3898 
3843 /* @¥SBLD WILL RUN AS A DEDICATED TASK, THEREFORE NO JOBS CAN BE  */ 01380000 3899 
0 3844 © /® STARTED UNTIL IS HAS COMPLETED. */ 0139000 6 3900 
3845 [ RAKRARAAKRARAARAAAARAAAAAARAAAARAARKAARAAAARRARRARAAAAAARARAARRAR RAR / 01400000 3901 
3846 /® ®7 01410000 3902 
3847 REGCXR1)=ADDRCNUGSCA); /® XR1 ~-> SCA */ 01420000 06 3903 
3848 __XR1->SCASYS1=ONCSCANRBLD); /* SET FILE REBUILD CALLED —_*/ 01430000 3904 
3849 = XR1->SCASYS2=ONCSCAMHLDP+SCANIPUP); /*SET HIGH LEVEL DEDICATION */ 01440000 3905 
3850 —_-XR1->SCATPLWK#1(1:19=0; /* RESET STARTUP FLAG ®/ 01450000 07; 3906 
3851 /* ®/ 01460000 3907 
3852 [PRARRARAAARARRARARRARARARAARARARARRARARARARAARARAAAAAARARRARARAAARR | 01470000 3908 
08 3853 /* DEALLOCATE TWA TRACK THAT WAS SAVED DURING IPL. TRACK WAS SAVED */ 01480000 03 3909 
i 3854 _/* TO INSURE THAT THERE 1S ENOUGH TASK WORK AREA TO RUN REBUILD. — */ 01490000 1_3910 
3855 [RRARRARRARRARRRARRARRARAARRARARARRARRARRARRARRARRARREARA RARER ARERR 01500000 1 3011 
09 3856 /* */ 01510000 OF 1 1 3912 
3857__NIPWORK=XR1->SCASSTWA+XR1->SCATWASZ; /® CALCULATE TWA TRACK SS */ 01520000 21 3913 
3858 NIPWORK=NIPWORK-XR1->SCADIKSZ; i 11530000 3 1 3914 
3859 © REGCXR2)=NIPWORK; O 3 1 3915 
GEN; 3 1 3916 
2 1 #3917 
1 3918 
3919 
3920 
7 3921 
3866 DTWAO005 MVC DTWAELIKS,1),5,2) MOVE IN FIRST ELEFENT 922 
D1W900301¢21).X'O1" INIT. Q-CODE TO FIRST TRACK 3923 
3868 DTW80020 CLC DTWACTK2, 1), DTMASSC,1) UP TO TRACK TO FREE 2 3924 
3869 JE DTW0030 YES, FREE UP TRACK 5 
3870 ALC S7dASS(2, 1) MURSCA*SCADIKSZ ADD SECTORS /TRACK 28 
3871 eC DTW90030+1C1, 1), 0TU90030¢1(, 1) DOUBLE Q-DODE 327 
3872 BNOL DTW0020(,1) CHECK NEXT TRACK 3928 
3873 A” OTFC1D.2 POINT TO NEXT INDEX BYTc a 
SLC DTWASBYTC1, 1), DTUA0010+1(, 1D DECR. INDEX LENGTH iy i 8H 
11 ju 
1 1 Wi 
21 WR 
2 1 39 
Fl 393 
we 
37 
wh 
3m 


OTWACM =DS ~~ CL2 
OTWF =60C)—OXL2'FFFF 
OTWEND EQU * 
DROP 1 
®®® END OF EXPANSION ** 
@ENDGEN; 
i* 
[RRERARRAAAARARAARAARRA 
/*® ATTACH A TCB TO RUN F 
/*® DEDICATED STATE. 
[RERRARRERARAAARARRERRRA 
/* 
GEN; 
id ASSGN LEN-SATLEN 
SVC SVCASSEN, 0 
OC _AL2(SATLEN 
OC = ALIC1+X “80 
*®® END OF EXPANSION ** 


H82->CPINPOTE-101:11 


iI)~>CP ii if 128): 


Pe he ee 


OF *2ERD, REG 
382 -> SROPSAMG 


0008 1170 FIADSDIR EQU  FIADDATE LIBRARY - START OF DIRECTORY 


BIT ON = INDEXED FILE 
BIT ON = CONSECUTIVE FILE 


X'20" TT ON = DIRECT FILE 


x'10' BIT ON = [1 UNIT, BIT OFF = Fl UNIT 


BIT ON = PERMANENT FILE C'P') 
x"04" PORARY FILE ¢'T*) 
0002 1179 FIAMJOBR EQU = X'02" BIT ON = JOB FILE (‘J 
0001 1160 FIMNSCRT EQU X'01' BIT ON = SCRATCH FILE ('S') 


000D 1182 FIADSFLG EQU FIADTYPE+1 — FLAG BYTE 


1184 RRRRRAARARRAARAERRERRERAARARAARAAARARAAAAAAARAARRARARRARRARAAR ARK ARR 


my or: 


Ol] IF DO LINE 


SPL/3 VERSION 08/28/80 


SOURCE Ol] IF 00 LINE 
CL2 SS ADDRESS TO FREE 3944 /*® BE _INITIE 
CONSTANT Oi 945/81, JOB QU 
02) 3946 «= /* 2. AUTOS 
3892 OROP 1 DROP BASE REGISTER USAGE 3947 /® 
B93 ®R® END 0 PANSION ®* 3948 /* NOTE: IN 
03) 3894 GENDGEN; 01570000 0: 3949 /* a 
3895 /* */ 01580000 3950 [RRRARARARRR 
RO< /R® RARKARAKAARRKARK AR RAAAARARRARARARAAAARARAARAARARAARARAAAARA ARK 7 01590000 951 {* 
3897 /* ATTACH A TCB TO RUN FILE REBUILD, #MSBLO. IT WILL RUN INA */ 01600000 04 1 3952 DO UNTIL ¢ 
3898 _/® DEDICATED STATE. */ 01610000 1_ 3953 -_- REGCXR1)= 
3899 —- /RRRRARRARAARARARARERRARAURARAAARARRARRARARARAARAAARAAARRARRRRRRRRRRR 7 01670000 1 3954 GEN; 
05 3900 /® */ 01630000 0 1 3955 * WAIT 
3901 GEN; /® GET SPACE FOR ATTACH PARIS */ 01640000 13956 Sve 
3902 * ASSEN LEN-SATLENG, QUEUE-YES 01650000 1 3957 *** END OF EX 
06 3903 SVC SVCASSEN,O = ASSIGN REQUEST 06) 1 3958 @END 
3904 OC AL2(SATLENG*4) LENGTH + 4 FOR QUEUEING 11 3959 IF SCADCF 
3905 OC = AL1C1#X"80') ATTRIBUTES 2 1 3960 IF XR1-> 
07 3906 *** END OF EXPANSION ** 07} 2 2 3961 00; 
3907 @ENOGEN; 01660000 2 2 3962 GEN; 
XR1->S$ATLENG~101:25)=VARCNIPATACH+SATLENG-1)(1:25); /SMOVE PARM */ 01670000 2 2 3963 Svc 
03) REGCXR2)=ADDRCNUBACEQH+ 1+QHDTUB-TUBCHAIN); /® XR1-> TUB CHAIN */ 01680000 O38} 2 2 3964 oc 
00 UNTIL (XR2->TUBCHAIN-1=QHDNULL); /* GET CONSOLE TUB LOOP ®/ 01690000 2 2 3965 END 
: /* XR2 -~> TUB ®/ 01700000 2 1 3966 END; 
1 1 «(3912 IF XR2->TUBDEVID=TUBSKBOP THEN /* DISPLAY STATION TUB? AND.. */ 01710000 OF 2 1 3967 ELSE 
2 1 3913 IF_XR2->TUBATTRISONCTUBSGN+TUBMCND THEN /® SIGNED ON CONSOLE? */ 01720000 2 2 3968 00; 
3°11 3914 TF XR2~>TUBATTR2=ONCTUBMWSTND THEN /* AND WORK STATION? ®/ 01730000 2 2 3969 GEN; 
10) 3 1 3915 XR1->$ATTUBAC1:2)=REGCXR2); /* YES, SAVE IN PARM LIST */ 01740000 10, 2 2 3970 svc 
31 3916 ELSE 2.2 3971 oc 
= 2 2 «3972 aN 
n lly 1 1 «(3973 END; 
1 1 3974 ELSE 
XR2->CPTUBC1:2)=XR1->$ATTUBA; == /® STORE TUB ADDRESS 1 3975 WIPSUTCH 
12 3921 XR2->CPINPDTE=BLANK; 7® INITIALIZE DATA AREA aa145*/ 01800000 2 3976 END; 
3922 XR2->CPINPOTE-1€1:119)=XR2->CPINPDTE; /* @8145*/ 01810000 3977 If SCAIPLIB 
¥R2->CPINPDTA+7(1:8)=C ‘SIPLPROC'; /* REBUILD PROCEDURE = a8145*/ 01820000 1 3978 (Nua 
l 3924 XR2->CPINPDTAt16(1:8)=VARCNIPSTART*#7)(1:8); /* STARTUP @a145*/ 01830000 1 1 «3979 BO; 
3925 REG(XR2)=REGCAR2)+CPINPDTA; 7® SET DATA ADDRESS 1 1 3980 GEN; 
XR1->SATDATAR1:2)=REGCXRZ); I" 1 1 3981 ba 
14 3927 REGCXR2)=XR1->SATTUBAC 1:2); /* XR2 PTR TUB @8145*/ 01860000 14 1 °«21~«23982 oO 
3928 XR2->TUBATTR2=OFF(X 'FO'); /* SET DATA MODE IN TUB a@145*/ 01870000 1 1 3983 ae 
3929 XR2->TUBATTR2= ONCTUBNDATAsTUBASTND; /* @3145*/ 01830000 1 3984 END; 
15} 1 3930 TF SCADCPS2(1:1)=0N(SCANPEBL) THEN /* REBUILD REQUEST? @a145"/ 01890000 7 3985 REGCXR2) =A 
1 1 3931 00; 7* YES, SET JCB UPS! = aa145"/ 01900000 1 3986 TF R2-9SCF 
REGCKR2)=XR2-> TUBICBAC1 2): J* GET JCB ADDRESS @a145*/ 01910000 1 3987 2-SCAN 
1 TF *ZERO, REGOKR1)=REGCARI+X00 THEN /* ADDRESS OK? a@a145*/ 01920000 16 3988 JKR2-YSTAGY'S 
XR2-> JCBDUPS [=0NKX "91"; 7* YES, SET UPS SUITCH @@145*/ 01930000 39 
90 [Rernanencany 
1 3 /* BUILD TIC 
092 | heniataineainmeaiaati 
33 CO* 
19 3939 @ENDGEN; wv 01980000 g 94 REGO A 
3940s GENCTITLE “SSCPR - COMMAND PROCESSOR UAIT ROUTINE’); 1990000 39% co 
3041 /* 05 * Pig 
I i 7 SUC 
3943 /* WAIT FOR FILE REBUILD TO COMPLETE. AT THAT TINE OTHER TASKS CAN */ G2G70000 3998 a 


02:15 DATE 31/12/08 


=4 


g 0018 1233 FIADSTOA EQU FIADLSTR+3 © SSS OF START OF DATA 12340000 
12 


Whe 1dey TU CaO ROU) VOLY TU AULA IPR Pike 


0011 1222 FIADLOOW EQU FIADRECL*+2 LIBRARY - OWNER 
OO12 1224 FIADLBUS EQU FIADLBOW+1 =©— LIBRARY ~ COUNT OF CURRENT USERS 


12290000 


0015 1230 FIADRFST EQU FIADLSTR START SSS OF RESERVED AREA FREE SPACE 12310000 | 17) 
1231.* (3 BYTES) 12320000 


OLB 1235 FIADENDA EQU FIADSTDA+3 = SSS OF END OF EXTENT 6 


0010 1237 FIADVTOC EQU FIADENDAt2 RELATIVE S/D OF VTOC_ENTRY 


004 


7 SPL/ 
Ol} IF 00 LINE SOURCE Ol} IF bo 
3944 /* BE INITIALIZED FOR AUTO START: 
945 7* 1, 08 QUEUE *7 02040000 
02 3946 /* 2, AUTO SPOOL WRITER ®/ 02050000 02) 1 
3047, /® ®/ 02060000 Ll 
948 7* NOTE: INDEX REGISTERS 1 &@ 2 WILL BE DESTROYED IF OP-END ROUTER */ 02070000 11 
03 3949/8 COCPRT) IS CALLED, (DESTROYED BY #SVAT). */ 02080000 03] 1:1 
3950 [RERRWARARARARRRARRARARARARAARARARAARARARRARARAARARRERRAARARAARRARARRR 02090000 1 1 
517 *7 02100000 11 
1 3952 (DO UNTIL CNIPSWTCHC1:1)=ONCWAITEND)); /® WAIT FOR REBUILD *7 02110000 04, 1 
13953 REGCXR1)=0; /* SET FOR GENERAL WAIT */ 02120000 1 
1 3954 GEN; 7* WAIT FOR SMSBLD TO COMPLETE */ 02130000 im 
1 3955 * WAIT Q-QXLOFF 02140000 5} 11 
1 3956 SVC__SVCWAIT,QXLOFF WAIT ON SPECIFIED EVENT 1 
1 3957 *** END OF EXPANSION ** M1 
1 3958 AENDGEN; 02150000 06, 1:1 
11 3959 IF SCADCF61(1:1)=0FFCSCAMIQEM) THEN /® POST FROM REBUILD DETATCH?*/ 02160000 1 
2 1 3960 TF KRI->ECMPARMONCECITTC) THEN /* NO, IS IT TIC? *7 02170000 1 
2 2 3961 00; /* YES, */ 02180000 O7| 21 
GEN; /® CALL I/O ERROR PROCESSOR — */ 02190000 1 
1 
OS} 1 
09 
1a =21 
OC _ALICRCPRT) 11 
A 11 
1.1 
112 
7* REBUILD DONE, SET FLAG *7 02320000 11 
3976 END; 02330000 yi 
3977 IF SCAIPLIK#1(1:1)=0} /* STARTUP ABENDED? OR... */ 07340000 11 
1 3976 VARCNUAACEGH*OHDUSC)(1:1)°=0 THEN 7* WSIOCH POST PENDING? *7 02350000 m1 
1 1 3979 00; 7* YES, HONOR CP POST */ 07360000 11 
1 GEN; /* CALL 1/0 ERROR PROCESSOR —_*/ 02370000 1 
1 
141 
2 
21 
REGCXRZ)=ADDRCNUSSCAD ; 7* XR2 PTR SCA */ 02420000 y 21 
IF_XR2->SCASYSI=OFF(SCAOVER) THEN /* REFORMAT JOB QUEUE? 21 
21 
1 ig 21 
21 
21 
1 mo21 
21 
=] C2500000 21 
18 21 
*7 G2520000 21 
@7530000 21 
21 
21 


VERSTON 08/28/80 


LINE 
3999 
4000 
4001 
4002 
4003 


$8888 S18 S89 Sise 


g 


88918 § 28 & 


*®® END OF EXPANS 

@ENDGEN; 

IF XR2->SCADCF 
00; 


i* 
[RRRAKAAAARAAARK 


/* PROCESS FOR H 


[RARRARERRRARERR 


0020 1273 FIADATTL EQU  FLADFCHNe! 
00801274 FIARKTNO EQU X‘80' 


ATTRIBUTE BYTE ONE 
EXTEND CAPABLE FILE 


BIT 
8 


0080 1279 FIAMDTAD EQU 


BIT ON = HIGH KEY BUCKET ASSIGNE 

NOT TO B 

BIT ON = NON-FORMA 
CVALIO IN THE 


FILE 
VToc)> 


4000 @ENOGEN; 02540000 
02] 1 4001 IF XR2->SCADCFG27=OFF(SCAMSPOL+SCANJOBQ) THEN /*CALL SPOOL OR JQ? */ 02550000 U 
1 1 4002 00; /* YES, CALL IPL ROUTINE */ 02560000 
1 1 400! GEN; 02570000 
1 1 4004 SVC SVCXIENT, QREFRESH CALL SPOOL/JQ IPL ROUTINE 02580000 03 
1 1 4005 DC _AL2CNIPSPIPL) ADDRESS OF PARM LIST 02590000 
1 1 4006 @ENOGEN; 02600000 
1 4007 END; 02610000 04 
1 4008 IF_XR2->SCADCPS1 =ONCSCAMALL) THEN /® STOP COMMAND? ®/ 02620000 
1 1 «4009 A ® YES, CALL TTC ROUTINE ®/ 02630000 
1 1 4010 GEN; 02640000 U 
11 4 SVC__SVCXFER, QREFRESH CALL ACPTC 02650000 
1 1 4012 OC = ALICRCPTC) RIB 02660000 
1 1 4013 @ENDGEN; 02670000 OO 
1 4014 END; 02680000 
1 415 /* ®/ 02690000 
1 4016 [RARRERRAAERAAARARRARRARRRARRRARARRRARARRAARRARRARRARRERRRAARAAARARRK 02700000 07 
1 4017 __/* PROCESS FOR HISTORY FILE WRAP FEATURE. */ 02710000 
1 40 RRARARARARARARRARRAARAARARRAARRARARARARARAARAARARARAAARRAK / 02720000 
1 4019 /* */ 02730000 08 
4020 GEN; 7* CALL HISTORY INIT TRANSIENT */ 02740000 
021 SVC sUCXTENT, QREFRESH 02750000 
4022 DC = AL2(NIPSSHFID 02760000 OY 
4023 @ENDGEN; 
4024 REGCKR1)=VARCNURCPTCB+TCBICBADC1:2); /* GET INITIALIZATION JCB */ 02780000 
19 1 025 TF 7ZERO, REGCARI)=REGCXR1)*X00 THEN /* VALID ADDRESS? */ 02790000 10 
1 1 02% 00; /* YES, FREE JCB */ 02800000 
1 1 427 NUACPTCB+ TCBICBAC1 :2)=X00; 7® RESET POINTER ®/ 02810000 
1} 1 2 «4028 GEN; /* FREE JCB */ 02820000 11 
1 1 429 * FREE LEN-JCBLLNTH 02830000 
1 1 4030 SVC SVCFREE.QO = ISSUE FREE REQUEST 
1 1 4031 DC = AL2CJCBLLNTH) LENGTH OF AREA TO FREE 
1 1 4032 OC ALCO FREE FUNCTION BYTE 
1 1 4033 *** END OF EXPANSION ** 
‘Bae! @ENDGEN; 02840000 4 
1 035 s 02850000 
1 036 IF XR2->SCADCFG3=ONSCAMDTTO) THEN /* NEED TO START AUTOCALL TASK?*/ 02860000 
G1 037 IF XR2->SCADL IN®"=0FF(SCANACU]+SCAMACU2+SCANACU3+SCANACL4) THEN 02870000 14 
2 4038 —NIPACUOI: 027880000 
21 039 00; 7* YES, START IT */ 02890000 
21 00 > 
21 on 
21 02 
21 08 16 
2 1 404 
2106 /; 
2106 GH: 7* GET SPACE FOR A 1B "7 07960000 1 
21 08 * GSGN LEN-JCBLLNTH az970000 
21 28 3 SVCASS@LG = ASS 1G REQUEST 
B21 OO OC MM 2CCRLLTD LENGTH a 
21 2 MICO) ATTRIBUTES 
21 4 80  OPABION = 
2 1 ah aac, 29a0000 19 
2 1 23 Rl -> JOBUURTA-1C1 = 112) R12 ARC TOLL 21 = 112) a79s1000 


ae 


WW) Wl WW] WW Wi We Wl Wo ul Ww Wu le ul bl lo ot we ote so] tl le oe le oe ole ew Ul 


~ 


NONENIN NNT NNTN NRE RNR INR IR I 8 WIN IR RR ee fe ee ele ee ele eH 8 


0039 1327 FIA 


VERSION 08/28/80 


LINE 
4054 
4055 
4056 
4057 


al 3 18 $ $18 SSS 8 818 8 S18 8 88g 


4101 


a8 SIs 


IF XR2->SCADSSPF= 
IF XR2->SCADCPS3= 
NIPFNDAC*SFNODNN 
La 
ei niaciaasaaeld 
/* FIND AUTOCALL TASK 
7® AUTOCALL FUNCTION. 
[RARARAARAARAAARARRRR 
thal 
REGCXR2)=REGCKRI); 
XR2->$FNOLEN-1¢1: 18: 
XR2-> JCBDPROGC1:8)=) 
GENCSVC  SVCXFER, QR 
GENCOC = AL1CRFIND): 
IF_XR2->$FNOOTOT7=0 
NIPACUO2: 
00; 
/* 
[RRRAAARARAAARARAARRAKS 
7* INIT ATTACH PARANE) 
[RRRRAAAAAAARAARARAARS 
/* 
NIPACTSK+$AT JCBAC 1 
NIPACTSK+$ATLOADC) 
DO WHILE CPLUS, XRz 
NIPACTSK+$ATMSS 12 
END; 
/*® 
[PRERRAAAAAARAARAAAARAI 
/* INITIALIZE JCB. 
[PRERAARARAAAAARARRARA 
/* 
XR2->$FNDLEN-1(1:1 


XR2-> ICBO INIT=JCBM 
XR2-> JCBOSCH2= ICBM" 
XR2-> ICBOSCH3= ICBM 
XR2->JCBDJOBNC 1-3) 
XR2-> ICBODTF& 1:2) 
¥R2-> ICBDOFREC1 =2) 
XR2-> JCBDRGSZ=XR2- 
REGCKR1)=SCADMTUBC 
XR2-> CBO IBINC=2) 


OC ALICI*K" 


4108 ** END OF EPASION ** 


0039 1327 FIADHOKY EGU FIADLSTP+4 = SSS/0 OF HIGHEST KEY IN OVERFLOW AREA 


1331 AAAAAKRAKRARRARRARAAKAAAAAARAKRAAAARAKKRAERAARAKAKRANRARAAANARAARAARAAR 
i 

1333 * THE FOLLOWING FIELOS ARE ONLY SUPPORTED IN THE AFA FORAT-1 * 
1334 *___FOR_ INDEXED FILES " 
1335 7 


133% RARRAKAARRARKKRAAARRRARRAKAARAARAARAARAAKAARAARAAAAKAAAARRARRA AAR AK IR 


SPL/3 VERSION 08/28/80 
Oly IF DO LINE 


SOURCE 


3 4109 INC SAT 

R @8478"/ 02983000 4110 MVC OSFN 

IF XR2->SCADCPS. SCAMK21S) THEN /* AND SWITCHED? @8478"/ 02984000 02) 4a CLC (JCB 

NIPFNDAC+SFNDONMB(1:8)=NIPMGC21; /* YES, CHANGE TASK NAME a8478%/ 02985000 4112 JNE NIP 

4058 = /*® ; */ 02990000 4113 SBN SAT 

4059 [RRRARARAARAERARRARRARAARARRARRARARARARRERAAARARRAR RARER RA RARRARRERR / 03000000 0: 4114 NIPACUO4 SVC SVC 

4 4060__/* FINO AUTOCALL TASK. IF TASK MODULE IS NOT FOUND, TERMINATE THE  %/ 03010000 a“ oC hes 
406 4 @ENDGEN; 


47 NIPWORK=REGCXR1. 
4118 TF NIPWORKC1: 1) 


g 


4 1 7*® AUTOCALL TON. ®/ 03020000 
4 4 2 [/RRRRARARARARRERAARARAARRARRARAARARAAARAKRARAARRARAARAARAARARAAARARAK / 03030000 
4 3 I */ 03040000 


3 


ROR me IN Ww Wits w DIP Ww WIR AD AGIA AD AOTRS BD POL RD 


3 
3 
3 
3 
3 
3 
3 
4 
2 1 4064 ~~ REGCKR2)=REGCKRID; 7® XR2-> JCB AREA - FIND PARM */ 03050000 43 #19 00; 
4065 = XR2~>SFNDLEN-1(1:18)=VARCNIPFNDAC*SFNDLEN-1)(1:182; /® PARMLIST — */ 03060000 05} 4 3 4120 SCADCFG3(1:1): 
XR2->JCBDPROG(1:8)=XR2->SFNDONMS; _/* SAVE NAME IN JCB @9478*/ 03065000 42 421 END; 
42 422 ELSE 
06] 4 3 4123 00; 
4 3 4124 NUBAL BF 1+F 1ADL 
43 4125 XR1->TCBSTATO=( 
07] 4 3 4126 SCADCTUTC1: 1)! 
3.2 4127 END; 
3 1 4128 END NIPACUO2; 
08} 3 4129 ELSE 
3 4130 DO; 
3 2 4131 SCADCFG3C1: 1): 
09} 2 1 4132 END; 
2 4133 ENO NIPACUOL; 
SFNDOCRS-X8); /* REGION SIZE */ 03190000 2 4134 ~~-‘ELSE 
1 4080 NIPACTSK*SATHSSIZ(1:1)=VARCNIPACTSK+SATMSSIZ)(1:1)4X1; /* */ 03200000 11 4135 XR2->SCADCFE3=L 
4081 END; 14136 NIPSSPF: 
1 4137 ‘TF SCADSSPF(1:1: 
Ly 1 1 4138 Do; 
11 4139 =/* 
2} 161 «4141 /® CALL SISKKK TO 
1 1 4142 [RRRRRAARAAARARARAI 
11 4143 7 
B11 4144 GEN; 
11 4145 SVC SVC} 
5 ®7 03320000 1 1 414% DC ALA 
14 XR2-> JCBD.JOBNC1:3)-NIPPIN1; ” */ 03330000 14 1°21 ~«4147 @ENDGEN; 
*/ 03340000 1 4148 END; 


RRARRARRAK 


RARKRRARKHK 


0 
D 
D 
D 
p 
D 
v 
D 
D 
' 
) 
) 
) 
) 
} 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
J 
) 
) 
) 
) 
} 
} 
J 
} 
} 
} 


Q TEE W215 


TIME 02:15 


DATE 81/12/08 


0020 1379 DEQUEUE QU xK'2 DEQUEVE REQUEST $800000 | 
0000 1380 QUEUE QU x'00" GUEUE REQUEST 13810000 | 
0080 1381 PRIOR EQU _X'80' FOR PRIORITY QUEUEING 13820000 


0010 1383 LIFO 


0000 1384 FIFO 
Mg hee a 
13870000 116 
IN-MAIN STORE. THE QUEUE HEADERS HAVE VARIOUS 13900000 17 
DEPENDENT ON THE 1000 
13930000 1: 
0000 1394 GHOFD EQ K'0o° Disk 105 CRED 13950000 
0002 1395 QHDIO = EQU.«xX'02' DISKETTE 10CS CALE) 13960000 |19 
0004 1396 QHOPT —EQU. X‘04' PRINTER OCH CALE) 13970000 
0006 1397 QHOISC QU xX"06" ORKSTATION [OCH CRED 13960000 
() 
p07 
SPL/3 VERSION 00/2676 Pi Tite 02:15 DATE 8 SPL/ 
Ol] tf 00 LINE SOURCE 01] IF 00 
NIPACTSK+SATLENG-1 /* MOVE PARMLIST */ 
2 410 RKC ARID 7* SET LOAD ADOR an478*/ 0: 
02] 3 2 4111 XA2),NIPOGC21 /® X.21 TASK? aaa78*/ 03472000 0 
3-2 4112 INE _WIPACUOS /* JUMP IF NOT ae478"/ 03474000 
32 aD SBN SATFLAGC, RID, SATREAL /* X.21,SET LOGICALSREAL am470*/ 03476000 
03] 3 2 4114 NIPACUO4 SVC SVCXIENT,QREFRESH /* ATTACH AUTOCALL/X.21  @a478"/ 03480000 0 
3.2 45 OC _AL2CNIPSSATC) In ®/ 03490000 
2 4116 BENDGEN; 103500000 
04 3 2 4117 — NIPWORK=REGCXRID; /* STORE RETURN CODE */ 03510000 04 
4 2 4118 _IF _NIPWORK(1:1) = 0 THEN /* OID ATTACH FAIL? */ 03520000 
43 419 00; 7® YES, ERROR CONDITION EXISTS */ 03530000 
OS] 4 3 4120 SCADCFG3(1:1)=0FF(SCAMOTTO); /* RESET AUTOCALL SUPPORT *7 03540000 0 
42 421 ENO; 03560000 
42 422 ELSE 103570000 
6} 4 3 4123 = 00; /* OKAY INIT FOR AUTOCALL TASK */ 03580000 06 
43 4124 —_NU@ALBF1+F 1ADLBUSC1:1)=VARCNUS#LBF14F LADLBUS)(1:1)-X1; /"USE CNTR*/ 03590000 
43 41205 KRI~>TCBSTAT6=ONCTCBDEDO); 7® DEDICATED OVERRIDE FLAG */ 03600000 
07] 4 3 4126 © SCADCTUT(1:1)=SCADCTUTC1:1)-X1; /* DECREMENT USER TASK COUNT  */ 03610000 07 


3.2 4127 END; 


3 1 4128 END NIPACUO2; 03630000 

08} 3 1 4129 ~~ ELSE 03640000 08 
3 2 4130 00; /* PUTOCALL TASK NOT FLUND —— */ 03650000 
3 2 4131 SCADCFG3(1:1)=OFFCSCAMOTTO);  /* RESET AUTOCAL. SUPPORT 7 03660000 

09 2 1 4132 END; 03680000 09 
2 4133 END NIPACUO1; 03690000 
2 4134 ~~ ELSE 03700000 

1 435 XR2->SCADCFG3=0F F(SCAMDTTO); /* RESET AUTOCALL SUPPORT */ 03710000 10 
14136 NIPSSPF: 03740000 
1 4137——sTF SCADSSPFC1: 1)=ONCSCANKKKF) THEN /* NEED TO START GAM. TASK? */ 03750000 

ly 1 1 4138 DO; J® YES, START IT %/ 03760000 1 
11 439 /* */ 03770000 


11 12 
11 
11 4143 7 *7 03810000 
Yolo 414s GEN; /* CALL START TRANSIENT */ 03820000 13 
11 4145 SVC _SVCXIENT, QREFRESH 03830000 
11 4146 OC = AL 2CPSKKKSSND 03840000 
14121 «a4 @ENDGEN; 03850000 14 
1 4148 END: 03860000 
Sn 
: re ee | 
sn: 
sn 
; . 
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Coed Comet ell ceed Coe ce aed Coe ed Ce ey nd Cee ey Po rere Serre 


ee 


y* 
pn 
| 
ys 


I* 


2:15 


81/12/08 


008 


TON 0872876 GE 76 : ATE 3 5 SPL7 

fl] TF 00 LINE SOURCE 01} IF bo 
4149 GENCTITLE ‘M6CPR - PROCESS FOR REMOTE WORK STATIONS"); 1 

4150 = 7* ®7 03880000 21 

0 4151 [/RARARRARARRARAERRARRARAERRARRARRARARAAARARARAAAARERRARRARARRRERARRRR / 03890000 02} 3 1 
4152__/* PROCESS FOR REMOTE WORK STATIONS */ 03900000 32 

415: [RRRERR Tt ARAARRAAKRAARARAARRRKARARRARARARARRARRAK RARAARARAAAARARERRRR J 0 910 Hi) 3 2 

0 454 /* */ 03920000 03) 3 2 
4155 __ REGCKR1=ADDRCNURSCA); /* XR1 PTR SCA */ 039: 32 

4156 KRI->SCASYS2=OFFCSCAMHLDP); 2 

04 4157 XR1~>SCANBSV=OFF(SCAMDEAD); 04 3 2 
4158 IF_XR1->SCADLIN®C1:1)7=0 THEN /® COMMUNICATIONS? AND ..... 32 

05} /*YES, DO IPL AUTO VARY ONLINE */ 03980000 05) 3 1 


*/ 03990000 


2 1 4162 [ RERRARRARARRARRARRARAARAARARARARAAARARARAARARARARAARAARARAARARRRRRER } 04000000 

06] 2 1 4163 /* DO AUTO VARY ONLINE FOR REMOTE WORK STATIONS */ 04010000 06 
2 1 4164 [ RERRARRARARARARARARARARRARARRARRARRARRARARAARAAARARARERARRARRARAERER / 04020000 
21 4165+ =/* */ 04030000 

O07] 2 1 4166 XR1~>SCAIPLW1(1:8)=NIPAVPRM;  /® MOVE PARM LIST TO WORKAREA */ 04040000 07; 
2.1 4167 REGCXR2)=ADOR(SCAIPLW1-RWPLLEN+1); /®XR2 -> AUTO VARY PARMLIST */ 04050000 
2 1 4168 GEN; 7® CALL AUTO VARY ROUTINE 7 04060000 

08} 2 1 4169 SVC SVCXIENT, QREFRESH 04070000 08 
2 1 4170 DC AL2(NIPARWY) 04080000 
21 471 @ENDGEN; (04090000 

OF 21 4172:~«/* ®/ 04100000 09 
2 1 473 [#RRRRAERERRARRARARRERRARRERRARRERRARARARARARAAARAARARKARAARRARRARAER 04110000 
2 1 4174 /* ISSUE AUTO VARY MESSAGE *7 04120000 
21 417% ~=/* ®/ 04140000 
271 47 VARCNIPAWMSaChCUNIC-CPCMCU)(1:1)=XR2->RMPLRCD; 04150000 

1] 2.1 «4178 /* STORE COMPLETION IN PARMLIST*/ 04160000 11 
2.1 479 REGCXR2)=XR1->SCADCPWAC1:2); __/* GET A WORK AREA */ 04170000 
Z 1 4180 XR2->CRCUMGDACI:8)=NIPAWISG;  /* STORE MESSAGE IN WORK AREA */ 04160000 
21 4181 GEN; /* ISSUE IN AUTO VARY MESSAGE */ 04190000 
2:1 4182 SVC__SVCKIENT, QREFRESH 04200000 
2 1 «4183 DC AL2CNIPACHCU) (04210000 
¥ 2 1 4184 @ENDGEN; 04220000 
2. ngs END; 04230000 
4186“ XRI->SCAIPLWIC1:8)=XR1->SCAIPLUIC1:8)-XRI->SCAIPLWIGL:8); /* RESET*/ 04240000 

14 4187 = XR1->SCARDVOL(1:6)=C ‘IPLIPL'; /* INIT VOLUME LABEL SAVE AREA/ 04250000 14 
XR1~>SCASYSIC::1=OMCSCAMIPLO; —_/* SET IPL PROCESSING COMPLETE */ 04260000 

16 7° OF ITS WAIT. STARTUP TASK HAS BEEN UAITING FOR IPL TO COMPLETE 6 


TTS INITIALIZATION. 


Ll eli aed Lamell cell ond Leoni nell Ln ee eel Cae ed Ce) ed Ce ed oe eed ne re red ee ere ee meer 


ASR NUTR BE RUIN BY RIND 8 AUTRD 8D ROTR BR RUINS BS GEARS AS RGERS f BOT KG ROL RD ROL RO le 


VERSIO 


08/28/80 


END; 

IF 7ZERO,R 
IF XR1~>T 
00; 

XR1->TC 
GEN; 

7 TPOS 
svc 
oc 

*®® END OF EXP 


PROC OPTIONS ( 
IF SCASYS2C1 


; 
g 
BAIR SBR ORR ARS Bg RS 


ATE 81/1, 


DAE SL/120B 


ave 
SESESES 


0092 1464 QHOQUAIL EQU 


OOA4 1473 QHOGLF QU 
OOA6 1474 QHDEXAN 


DORE 1478 QHOKZ1 EQ 


SVC SVCTPOST,0 
OC ALICTCBDWAIT) 


32 4214 *** END OF EXPANSION ** 


31 4216 END; 
1 4217 H 
4219 SVC SVCEXIT,Q0 
@ENDGEN; 
4221 MSCPREI 


ATSIC 
Foie aR 


) THEN /*® 
* YE 
/*® 
* YR 


4224 IF $ 2 D=ONCSCAMRBLD AND REBUILD? aa145*/ 04590000 
‘ 00; S, WAIT FOR IPL @9145*/ 04600000 
GEN, SET OFF SSP ATTRIBUTES */ 04610000 


Sen 
QUEUED ACQUIRE I 
REVOTE. PRINTER 


MULT SWA LINE INTERLOCK 


SPOOL FILE INTERLOCK 
X's ‘ 


/* EXIT TO COMMAND PROCESSOR 


}30000 

*/ 04540000 
04550000 
04560000 
04570000 


DO WHILE (SCASYS2(1:1)=ONCSCAMIPUP)); /® STARTUP IN PROCESS? @@145*/ 04580000 


CPL 
NAS) 


12 * 1 -~> TCB ®/ 04620000 
12 L 321, XR1 GET TCB ADDRESS. OY 
12 4229 *** END OF EXPANSION ** 
1 2 4230 LPAR  TARK*PRV /* SET OPERANDS REAL ®/ 04630000 

1Q 1 2 «4231 SBF — TCBSTAT4(,XR1), TCBSYSTN /* RESET SYSTEM TASK FLAG */ 04640000 10 
1 2 4232 LPMR  TARX*OP1+0P2+PRV /* RESET PAR TO ORIGINAL STATE */ 04650000 
1 2 4233 * TWA “GET, TAG-TWAPPS 12, BUFF -ASCPREND, N-1,XL-YES, AREA-SWA 04660000 

ly 1 2 4234 LA PSCPREND,2 LOAD USER'S BUFFER ADDRESS Nn 
12 4235 sv 81,0 TSSUE TWA REQUEST 
1 2 4236 DC = AL1€0+0+4) FUNCTION BYTE 
12 4237 DC = ALL CTWA®PS12) TAG 1 
1 2 4238 OC AICI) LENGTH CIN SECTORS) 
1 2 4239 *** END OF EXPANSION ** 

H 12 20 SBF —- PPSFLAGIC.XR2).PPSCPBIT /* RESET SSP FLAG */ 04670000 1 
12 aa (WI _—_-PPSUPSIC,XR2).0 /* RESET EXTERNAL INDICATORS */ 04680000 
12 22 * TWA OFUNC-PUT, TAG-TURPPS12, 8-1, XL-YES, AREAS 04690000 

Ho 2 as sv (81,0 ISSUE TWA REQUEST 14 
12 @u OC = M1C1+04) FUNCTION BYTE 
12 26 OC ALICTURPPS12) TAG 
12 4% oc AKD LENGTH CIN SECTORS) , 
12 2a *** END OF EXPANSION * 
1 2 4288 aEMDGER: ‘of7o0000 
12 26 SCADCFG1(1: D-ONCSCRRUQAD; 7 SET REBUILD COPPLETE © aa145*/ 09710000 16 
22 {F SCAIPUR+1C1:1)-0 THEN /* WEED TO SET STARTUP FLAG? = */ 06720000 
22 Bil SCATPLUK #11: D=SCARIPUP; 7* YES, SET FLAG */ 04730000 
12 @2 REGORD-ADORGRRLP TCE TCBTIC-1): /* XRL PTR C.P. TIC a@male5"/ 08740000 1 
12 2 iy 09750000 
12 Gs * POST OEV-GHDTIC, PREP T-0D = /* INDICATE REBUILD DONE = aal45*/ OFV60000 
12 @ NC SACPOST.@ a 
12 @% oc AK@@TTOD 
12 4&7 OC MLICPREENPT+0-0) 
12 2 =" 9 OF OPS 19 
12 oR * TUATT PASK-TORAAIT.0-0 7* UATT FOR IPL COMPLETE a@ales*/ O47 70000 


HH SINE IND RD RID & 


OO0C 1514 ICAD00 


002A 1530 ICADICS 
1531_* 
OO2ZC 1532 ICADXTC 


VERSION 08/28/80 


SWC__SVCTWAIT, 0 
OC ALICTCBDWA 
®* END OF EXPANSION ** 
n $EOJ 
*® LINKAGE TO END OF JOB R 
sve X'04', X00 
OC _XL1'04' 
*® END OF EXPANSION 
*®® END OF EXPANSION ** 
@ENDGEN; 
END; 
END; 
GEN; 
x" $€0J 
*® LINKAGE TO END OF JOB R 
SVC__X'04',X‘00 
OC XL1'04" 
® ENO OF EXPANSION 
®*® END OF EXPANSION ** 
@ENOGEN; 
END MSCPRENT; 
GEN DATA; 
TITLE ‘#MSCPR - [ 
x 
SIPATACH ATACH CREATE-YES, 
* DATA-Y, JNA 
x PRIOR-TCBPF 
NIPATACH ba 
4XL1‘00' 
AL2(0) 
AL2(0) 
2XL1'00' 
AL2(0) 
AL1(K'80'+) 
ALI?) 
ALLCTCBPRBL 
AL2(0) 
xL4'0° 
AL1(X "80 '+) 
ALICTCBIOBL 
AL2(0) 
SATLOAD EQU X‘0B' 


8/8 SSR S88 Bale RS 


1529 * 
002A 1530 ICADICSV EQU ICADTRRT+12 12 RESERVED FOR ICFDM TRACE 
1531." 
002C 1532 ICADXTCB EQU ICADICSV+2 2 —TCB ADDR OF ICF TRANSIENT OWNER 


010 


SPL/ RSION 08/28/80 


4 


81/12/08 


ny 


Ol} IF 00 LINE SOURCE Ol} IF 00 LINE 
1 2 4260 SVC__SVCTWAIT,0 4315 SATSPOOL EQU SAT 
1 2 4261 OC ALICTCBDWAIT) 4316 SATBA QW SAT 
1 2 4262 ***® END OF EXPANSION ** 0 4317 SATNSSIZ EQU SAT 
1 2 4263 * $EOJ /* TERMINATE WALT ROUTINE @8145%/ 04780000 4318 SATPRIOR EQU SAT 
1 2 4264 ® LINKAGE TO END OF JOB ROUTINES 4319 SATTUBA EQU SAT 
1 2 426 SvC X'04',X'00' EO SVC 0' 4320 SATJCBA EQU SAT 
1 2 4266 OC _XL1'04' EOJ RIB 4321 SATSSSN EQU SAT 
1 2° (4267 -® END OF EXPANSION 4322 SATFLAG] EQU = SAT’ 
4 1 2 4268 *** END OF EXPANSION ** 04 4323 SATRFRSH EQU  X‘8 
1 2 4269 @ENDGEN: 04790000 4324 SATCOMON EQU X'4 
1 1 4270 END; 04800000 4325 SATOKINT EQU  X'2t 
4271 «END; 04810000 05) 4326 SATINCIC EQU X'It 
4272__ GEN; 04820000 4327 SATSYSTK EQU  X'‘O. 
4273, * ~ — $EOJ 7* aal45*/ 04830000 4328 SATNRTUB EQU = X'O: 
4274 * LINKAGE TO END OF JOB ROUTINES 06) 4329 SATNCNIQ EQU X'0; 
4275 SVWC__X'04',X'00' — E0J SW 4330 SATACHER EQU  X'0) 
4276 OC XL1‘04" EOJ RIB 4331 SATTSKID EQU — SATI 
07 4277 * END OF EXPANSION 07 . 4332 SATDATAa EQU = $ATI 
4278 _*®** END OF EXPANSION ** 4333 SATLENG EQU  SATI 
4279 @ENDGEN; 04840000 4 
4280 END MSCPRENT: 04850000 08 4335 * ERROR RETURN CODE 
4281 _ GEN DATA; 04860000 4336 * IF ATTACH WAS SUK 
4282 TITLE ‘@PSCPR - DATA AREAS 04870000 4337 -* ADDRESS. 
4283 * 04880000 09 4338 * 
4284 *IPATACH ATACH CREATE-YES, MSSIZ~7, SWAP-YES, PRIV-YES, REFRSH-YES 4339 SATERRO] EQU X‘0! 
DATA-Y, JNAME-Y, TASKID-TCBIDBLD, TUB~Y, REAL-YES, 4340 SATERRO2 EQU = X'02 
I PRIOR-TCBPRBLD, SYS-Y, INIT-Y 10 4341 * 
7 2 4342 SATERRO3 EQU X03 
4288 DC 8 4X11 ‘00° SSSN OF MODULE 4343 —* 
1 4289 oc 8 =6ak2c0) LINK EDIT ADDRESS Bl 4344 * 
oC. a 2(0) START CONTROL ADDRESS 4345 S$ATERRO4 EQU X‘04 
oC =—-2XL1 00° RLD OFFSET/ TOTAL SECTORS 4346 SATERROS EQU § X'05 
oc AL2(0) LOAD ADORESS 14. 4347 SATERRO6 EQU X‘06 
OC 1X80 “#X'40 4K '20'#X ‘00 "+X "08 “#X '04'+X 00 "4X 01") 4348 SATERRO? EQU  X‘07 
4294 oc AL) #2K BLOCKS MAIN STORAGE 4349 *** END OF EXPANSIO 
295 OC = ALICTCBPRBLD) PRIORITY ONLY IF NEW TASK 3 350 * 
42% oC 0200) TUB ADDRESS 4351 *IPACTSK ATACH CREA 
oc | 4‘o° SSSN VALUE OF NEXT TRANSIENT 4352 * DATA 
i DC = ALCX"80°#K 00 °#X ‘20K “10 "+X "08 ‘+X “00 “*X "00°+X 00") 14 4353 * PRIO 
OC ALICTCBIOBLD) TASK ID ONLY IF NEW TASK 4354 NIPACTSK EQU * 
355 o 4X1 
; 4356 oc AC 
457 oc A 
4358 oc mi 
16 59 [46 
4360 oO Alc 
4361 oc AK 
1 4362 oc AK 
1363 Cc A 
44 oot" 
8 $365 oc AIC 
i : TVILEDGED B66 Cc AK 
@l2 SAINSP EQ "02" TASK 1S SDT SURPPARLE 367 oc MZ 
83 WiPMew x FREE ATACH Peet LIST 19 4368 *** END OF EXPANSION 
Bi4 SATIN GR SATCREAT+SATREAL «SATTUBAS <SATOATACSAIPEI START INIT oe * 


C10 


BRE BLT 


0000 1567 JCBDINIT £Q 
Sree: 


bnaansosisan 


RUNNING CBETUEEN RUN STATEN 


evTE Tw 
J ' 


LOCAL DATA AREA IS IN STORAGE 


LOW PRIORITY HAS BEEN SPECIFIED 
X'30' BITS 


VERSION 


LINE 


4317 SATMSSIZ EQU 
4318 SATPRIOR 
BATTING 


4320 $ATUCBA EQU 
4321_ SATSSSN 


4326 SATINCJC EQU 
4327 _SATSYSTK EQ 
4308 SATNRTUR 

4329 SATNCNIQ EQU 
4330 _SATACHER EQ 


Xx'10° 
x'08' 
REQ. v, & 
DISALLOW CANCEL OR INQ 
ATTACHERCARJE) INDICATOR 


4331 SATTSKID EQU SATFLAGI+1 TASK [0 OF TASK ATACHED 
07 . 4332 SATOATAR EQU SATTSKID¢2 © ADORESS OF DATA TO PUT 
4333 SATLENG EQU  SATDATA@+1 LENGTH OF ATACH PARMLIST 
4 x 
08 4335 * ERROR RETURN CODES IN XR1 IN FORMAT OOXX, WHERE XX: 
4336_* IF ATTACH WAS SUCCESSFUL, XR1 RETURNS WITH ATTACHED TASKS TCB 
4337 * ADDRESS. 
09 4338 * 
4339 SATERRO] EQ X‘O1' NOT ENOUGH STORAGE 
4340 SATERROZ EQU = X'‘02' TASK NON-SWAPPABLE, AND NOT 
10 4341 * ENOUGH STORAGE 
4342__ SATERRO3 EQU X‘03' TASK NON-SWAPPABLE, AND ITS 
4343 * STORAGE REQUIREMENTS WILL 
93] 4344 * PUT A SWAPPABLE TASK TO SLEEP 
4345 SATERRO4 EQU  X‘04' ASSIGN FAILURE ON TCB 
4346 SATERROS EQU = X‘05* ASSIGN FAILURE ON RB 
2) 4347 SATERROG EQU = X‘06* ALLOCATE FAILURE FOR SWAP AREA 
4348 SATERRO? EQU X‘07" ALLOCATE FAILURE FOR WSWA 
49 *** Ea) OF EXPANSION = 
: 4350 * 04920000 
4351__*IPACTSK ATACH CREATE-YES, MSSIZ-1, SMAP-YES, PRIV-YES, REFRSH-YES, 04930000 
4352 * DATA-ND, ~Y, TASKID-TCBIDACT. TUB-ND, 04940000 
14 53 * PRIOR-TCBPRLD, SYS-Y, V-DC 04950000 
4354 NIPACTSK FQU* 
B55 oc 8 41 ‘00' SSSW OF MODULE 
. Bs oc 8 A20) LINK EDIT ADDRESS 
er oc A200) START CONTROL ADORESS 
8 Oo 71°00" OFFSET/ 101 


oc 8.200) LOAD ADDRESS 


OC MICK “80 “X00 “9X OD "#X 00 *#X 00 "+X '04"X 00"*K 01") 


OC ALICK"8O"+X00"K '10°#X "0B “+X 00"¥K"00"*X"00") 
OC A ICTCBIDACT) TASK ID ONLY IF NEU TASK 


agi 


DESCRENES MN! TRE CONUMIONTUON RE 15 
SCE oO RITS @-3 TEGEE TOT eee sa 


07 
08 
09 


10 


11 


VERS 
LINE 
4370 
437 
4372 
4373 
4374 
4375 
4376 
4377 
4378 


ON 08/28/80 


*IPFNOAC SFNOP 
SPACE 
* PARAMETER | 
SPACE 
NIPFNDAC EQU 
oc 
0c 
a 
® 
oc 
* END OF EXPA 
*e® END OF EXPA 
*IPFND21 SFNOP 
SPACE 
* PARAMETER L 
SPACE 
NIPFNO21 EQU 


oc ) 
ORG’ 
oc) 
ORG 
wo} 
Oe 
wc 
ors’ 
oc } 
ORG 
o 
te 
oc ) 
oR 
ec 
oc 

[zi 


aragvens ewe 


TERMINATION - DISPLAY RETURN CODE 


DISKETTE FILE ALLOCATED, BUT NOT CLOSED 
DISKETTE VOC O DIS 
RESIE = OAL SIN 
AJTO-LONDER_DISKETTE_ SELECTED 


UPSI SWITCH Two 
UPSt STH THREE 


0008 1638 cms EU X'08' 
0004 1639 tata) Qu X'04' 


UPSI SUITCH FIVE 
UPSL SWITCH SIX 


02:1 DATE 81/12/08 SPL/3 VERSION 08/28/80 


Ol] IF 00 LINE 

4425 RRR 

4426 * 
4 4427 NIPAVISA EQ 
4428 NIPAVISG DC 
4429 OR 
OC AL1¢8) MEMBER TYPE 0 4430 o 
4376 OC _CLO'*GCAC' _—MENBER NAYE 4431 OR 
ar Oc ALI¢128) SEARCH SYS LIOR AND 4432 rr 
4378 * RETURN DIRECTORY ENTRY 04 4433 OR 
4379 oc _Xi8'o' OUTPUT BY SYSTEM FIND 4434 o 
4300 * END OF EXPANSION OF SFNOP 4035 aR 
4381 *** END OF EXPANSION ** 05 4436 SP 
4382_*IPFND2)_ SFNDP V-DC, TYPE-0, NAME~GC21, SKIP-USER aa478 04973000 4437_NIPAVPRA EQ 
SPACE 4438 NIPAVPRH OC 
PARAMETER LIST FOR SYSTEM FIND 06 4439 oR 
4440 oc 
ai OR 
07 oc ALI¢8) MEMBER TYPE 07 4442, * EQUATES F 
4388 OC CL8‘#6C21' MEMBER NANE 4443 _NIPSTART EQ 


4369 tC AL1¢128) SEARCH SYS LIBR AND 4444 NIPSTRTE EQ 
4390 * RETURN DIRECTORY ENTRY 08 45 * 

4391 oC -XL8'0" OUTPUT BY SYSTEM FIND 4446 RARRRRRRARH 
4392 * END OF EXPANSION OF SFNDP “i * 

4393 *** END OF EXPANSION ** 09 4448 RARRRKRRRRE 
4394 NIPS6C21 DC CL8'*GC21' —_—~X.21 TASK NAYE 478 04976000 4449 _NIPPATCH EQ 
“a5 * 04980000 4450 0S 

1 4396 04990000 10 51 Ont 
4397 RARRK 05000000 4452 RARRARARRARS 
4398 ***AR MISC EQUATES AND CONSTANTS 05010000 “53 —«* 

u 4399 taEAR 05020000 11 4454 tHARRRRRRER 
4400 **® 05030000 4455 NIPMINI OC 
“i * 05040000 456 SPF 
42 x8 oC XL '08" CONSTANT OF 8 05050000 4457 NIPWORK DS 
4003 Om %1 05060000 4458 ORE 
444x800 OC X12 0800" “CONSTANT OF X“0800° (2K) 459 ii 

1 4460 NIPACRCU EQt 
4461 oc 
4462 oc 
1 4463 oc 
4464 SPF 
4465 9 
5} 4466 NIPARLNY EQ 
4467 oc 
468 ca 
16 469 oc 
4470 SPR 
rrr 
1 4472, WIPSSATC EQU 
“4B oc 
rvs] fia 
: “75 oc 
446 SPR 
“a ira 
19 408 NIPSSBLD £QU 
4979 oC 


me O25 DANE SL/12/08 


WOVE BOTY AUER Cv A VE PUL CATCROIUR UN TACO 


0020 1680 JCBOSLOB EQU JCBOCTAG+2 © SYSLIST [0B ADDRESS 


Si 


0033 1686 JCBOPRG1 EQU JCBDEXTA+2 RELATIVE SS OF PROGRAI NESSAGE PENBER 
0035 1687 JCBOPRG2 EGU _JCBOPRGI+2 RELATIVE SS OF PROGRAT NE 
0037 1688 JCBOUSH RELA 


4 
3 
{ 


| 


0039 1689 JCBDUSR2 EQU JCBDUSR1+2 
0038 1690 


OO3F 1692 JCBOURIL EQU  JCBOPG2ZL+2 
0041 1693 JCBOURZL EQU  JCBDURIL+2 — USER2 LIBRARY FORMAT-1 ADDRESS 


15 DATE 81/12/08 ERSION 08/28/68 PAGE § TIME 02: ATE & 8 SPL/3 VERSION 08/28/80 
01 DO LINE Ol] IF DO LINE 
4480 a 
4426 05290000 81 Cc | 
02 4427 NIPAWYSA EQU * * 05300000 0 4482 SPACE 
4428 _NIPAWYSG DC L8°00' AUTO VARY MESSAGE PARMLIST 05310000 4483 ot 
, ORG «= NIPAWSa+CNCUSWI-CPCMCU 4484 NIPSPIPL EQU 
0: OC ALI CCACUIRL *CMCUSWS *CMCULOG+CNCUROL +CMCUOUT) 03 4485 oe } 
ORG _NIPAVIS@+CNCUSW2-CPCMCU SWITCH 2 4486 a 
4432 DC = ALICCACUCONO) 05350000 4487 oc | 
04 4433 ORG = NIPAVMS@*CMCUMIC-CPCMCU~1 MIC 05360000 04 4488 SPACE ; 
4434 OC _XL2'5900' . 05370000 4489 
“4 ORG 05380000 4490 NIPSSHFI EQU 
05} 4436 SPACE 05390000 05 4491 oc) 
4437 _NIPAVPRA EQU * AUTO VARY PARM LIST 05400000 4492 o of 
4438 =NIPAVPRM DC = XL8 ‘00° ® 05410000 49. oc f 
06 4439 ORG == NIPAVPRA+RWPLREQ 05420000 06 4494 SPACE 2 
44400 OC _ALICRWPLAUT) REQUEST BYTE 05430000 4495 oc 
444) ORG 05440000 ] 4496 MISKKKSSN EQU 
07; 4442_-* EQUATES FOR SAVE OF STARTUP PROCEDURE 05450000 07 “97 ow ) 
4443 NIPSTART EQU NUARDIOB+48 STARTUP PROCEDURE SAVE AREA 05460000 4498 | 
4444 «NIPSTRTE EQU NIPSTART+? x 05470000 449 oc f 
08 5 * 05480000 08) 4500 MSCPREND EQU * 
4446 RARRRARRARRRERRARARRARRERRRRERRRERERRARRRERARRURARRARRERERRARARERERRARR OE AGNOND 4501 */*.END CHANGE f 
a7 * MAINTENANCE AREA ® 05500000 4502 @ENDGEN 
09 MMAQ *RAAAERKARAARARRRARARRRARRERERARARARARRRARRERRIRRARREREREARERRRRRIRRERR (1551 0000) 09 4503 END MSCPRENT; 
4449 NIPPATCH EQU * PATCH AREA 05520000 
450 ob ci50 PATCH AREA (05530000 © STATEMENTS FLAGGED DURING 
10 4451 ORG = *, 256,190 05540000 10 
“453 * WHERE-TO-GO TABLE ® 05560000 
4455 NIPMIN. OC XL2‘FFFF' WIG TABLE IDENTIFER 05580000 
456 SPACE (5590000 
2 4457 «“NIPWORK DS = C12 WORK AREA 05600000 
4458 ORG *-2 05610000 
459 oc 8 as‘ot' ® MESSAGE ROUTER 05620000 
460 NIPACHCU FQU * 05630000 
4461 oC xi3‘00" NODULE SSS 05640000 
4462 OC AL 10) NUMBER OF TEXT SECTORS 05650000 
14 4463 oC ALCO) RLD DISPLACEMENT 05660000 14 
464 SPACE 2 05670000 
465 tc cds‘Ray* ® PASTO VARY TRANSIENT 05680000 
, 4466 NIPARNY EQU * 05690000 > 
4467 oc 300 AIDOULE SSS o57oo000 
68 oc =O) WER OF TEXT SECTORS 5710000 
16 469 oc mic) RLD DISPLACEMENT 05720000 16 
4410 SPACE 2 05730000 
a oc cesar 2 05740000 
1 “12 WIPSSATC EU * 5750000 1 
43 x we fODULE SSS 5760000 
ma oc 100) WRPBER OF TEXT SECTORS 5770000 
a “aS oc 100) RLO DISPLACEFENT 5790000 1g 
a6 SPACE 2 5790000 
a oc c4eTSE * FILE REQUILD 58D 5300000 
og8 WIPSSED EQ * onB10000 19 
weg ce x30 MOOULE SSS 5820000 


| 


B21 DME SL/I278 


SEARCH SYSTEM LIBRARY ONLY 
SYSLIST END MESSAGE REQUIRED 
LIST Re 
SYSLIST ‘NOEXTN' SPECIFIED 
15 CPI SPECIFIED ON FORMS STATEMENT 
x'04" 
equ X'02' 
Eq x'01' 
0063 1737 JCBDSCH4 EQU JCBOLANG+1 © SCHEDULER BYTE FOUR 
‘80' TERMINATION INTERLOCK 
J NE Cniory 


0020 1740 JCBMPGIS EQU PROGRAM HAS INLINE SOURCE 
1741 JCBMINTK EQ INITIATOR DIO NOT INITIATE THIS TASK 
: er Sern 


SET AT LAST CHECK POINT 
. j 1800 * 0260 


00651747 JCBDCSBP EQU  JCBDSCH4+2 CSB _CHAIN POINTER 1801 * 


014 


DATE 81. Of 
Ol) IF 00 LINE 01 
OC AL1C0) OF SECTORS 05830000 YOU USED 2231_ SYMBOLS. 
8] OC = ALCO) RLO DISPLACE! 05840000 

0 4482 SPACE 2 05850000 0 
4483 OC —CL4"NSSP' SPOOL_[PL_ TRANSIENT 05860000 
4484 “NIPSPIPL EQU * 05870000 LENGTH OF MODULE IS 1279 

0 4485 DC XL3"00" MODULE SSS 05880000 0. 
4486 OC ALCO) NUMBER OF TEXT SECTORS 05890000 
4487 D AL1(0) RLD DISPLACEMEN 05900000 

0 4488 SPACE 2 05910000 0 
4489 OC CL4‘MSHF' HISTORY FILE INITIALIZE 05920000 
4490 NIPSSHFI EQU  * 05930000 

0 4491 OC = XL3'00" MOOULE SSS 05940000 0 
4492 OC AL1C0) NUMBER OF TEXT SECTORS 05950000 
9. OC AL1C0) RLD DISPLACENEN 05960000 

06 4494 SPACE 2 05970000 06 
4495 OC _CL4°MSKK' GAL START TRANSIENT 05980000 
4496 MSKKKSSN EQU  *® 05990000 

07 “7 OC = XL3 "00" MODULE SSS 06000000 07 
4498 oC AL 10) NUMBER OF TEXT SECTORS 06010000 
“yn oc = ALCO) RLO DISPLACEMENT 06020000 

03) 4500 MSCPREND EQU = *+1 END OF “SCPR 06030000 08) 
4501_*/®.END CHANGE ACTIVITY - “°SCPR 06040000 
4502 @ENDGEN; 06050000 

09 4503 END MSCPRENT; 06060000 09 


© STATEMENTS FLAGGED DURING COMPILATION 


—_ 
S 
_ 

= 


_ 

omy 
_ 
— 


~ 
S 


a 
4 


ie [= 
ual il — 
ma : on 


YOU USED 2175 SYMBOLS OUT OF 4000 
: ee 


238) SOROS EQ SOMPS3+] =] CONF GURATION BYTE 6 Ra 
2s * MOE: THOS BY CORN THE SWE BIT GES 45 SSTEN COM IGRI 


1800 * 02E0 SYSTEM LIBRARY FORMAT~1 0020 


015 


ME 02:15 DATE 81/12/08 
01 


ee oe th ee el 3 
LENGTH OF MODULE IS 1279 
03 


ERR LOC OBJECT CODE 


10 


1] 


ib: 


16 


TIME E2215 OME S1/12/88 


1845 RRRARRAARERRAAARAAARARRAARAERARRERRARRAERERRARRAARARRAAARAARAARA RARER AR 


1846 * 1000 VARIABLE NUCLEUS 
RRA im 


1848 RAAKAAARAARARRARAAAARAAKRAAAAKRAARAARARAKRARRAARAARARAARARRARRARRARR ARR 


1849_® 2000 LOAD ADDRESS FOR IPL DISKE 
RR 


SCPR SISCPR ~ MAIN STORAG 
ERR LOC OBJECT CODE ADD 


215 


09/11/81 12/08/81 02:16 


LES 


3 RARAAARALARRAKRAKRERRARRARRARRERRARRARAAKAAAAAARRAKAAKAARARRRARRARRARRR 


4% MODULE NAME = SMSCPR Li 00050000 


B® x 00060000 


0 6 *® DESCRIPTIVE NAME = MAIN STORAGE IPL ~ COMMAND PROCESSOR FUNCTION * 03 
7% ® 
LUPTR 
9 */® COPYRIGHT= 5726-SS1 COPYRIGHT IBM CORP 1977, 1981 04 
10 */" LICENSED MATERTAL ~ PROGRAY PROPERTY OF 1 
05) 12 *** END OF EXPANSION ** 05 
13 ® n 
14 * STATUS = RELEASE 08 ® 00150000 
15 * ® 00160000 | 06 
16.* FUNCTION = 1. EXECUTE FILE REBUILD * 00170000 
* 2. INITIALIZE FOR REMOTE WORK STATIONS ® 100180000 
18* ® 00190000 | 07 
19.* NOTES = x 00200000 
aI 21% — RESTRICTIONS = ® 00220000 | 08 
2* * 00230000 
23 * PATCH LABEL = NIPATCH ® 00240000 
24% ® ooz50000 | 09 
25. * _ MODULE-TYPE = LOAD (0) MODULE ® 00260000 
6 * 00270000 
28 * ® 00290000 


a 8 8 


2 * MODULE-SIZE = 2048 BYTES 00300000 
3* 00310000 | 11) 
31* ATTRIBUTES = REUSABLE 00320000 

32 * 00330000 
33 * — ENTRY-POINT = MSCPRYNT 00340000 
4* 00350000 


» 8 | 


35 * ~~ PURPOSE = CONTINUE MAIN STORAGE IPL * 00360000 

: %* ® 00370000 | 13) 
37* _LINKAGE = CALLED BY MAIN STORAGE IPL PHASE 3, "SIPL x 00380000 
38 * ® 00390000 

‘i 39° * INPUT = ® oosn0000 | 14 
m* ® 00410000 
4 * OUTPUT = ® 00420000 
Q* 7 00430000 | 15) 
43 * _EXIT-NORTWL = TO COMMAND PROCESSOR RESIDENT ROUTINE. ® 00440000 
“* ® 00450000 

é 4S *  EXIT-ERROR = ® oossoo00 | 16 
%* * 00470000 
47 *  EXTERNAL-REFERENCE = WA ® 00480000 
g* ® ooeoo00 | 1 
499 * ~~ ROUTINES = WA ® 00500000 
* ® 00510000 

is 51" DATA AREAS = * oosz0000 | 15 
52 * = 00530000 

* 
a * a 
x 


a 


FIXED NUCLEUS FREE AREA #2 


1000 1943 NUBNSSQS EQU  NUVARNUC 
4 DEFAULT LENGTH FREE AREA #2 


0001 1958 PPSFLAGI eau PPSTAGID+1 — FLAGE BYTE 19590000 
0080 esd prescrely Q La PROCEDURE Ts SCP 


AGE 2 «(WOS 


* 
FUNCTION * 
& 


120-2083.*/ 


Sad Mead Mae) a) ed a i ) oO ee) oe a? as 


THE B25 


1/81 12/08/81 02:16 


00040000 
00050000 
DUU6OUUU 
00070000 
00080000 
OUD 
00100000 
00110000 
00120000 
00130000 
00140000 
00150000 
00160000 
00170000 
00180000 
00190000 


00210000 


FScPR ECP - FAT 
ERR LOC OBJECT CODE 


fe ® _MESSAGES-INITIATED = 00620000 
62 * ® 00630000 


63 RAARRARRARRAAAAARRARRAKRARRARAARAARARRARAARAAAAEARERRERRAAAAARRARRARRAK 


Voo/i1761 12/08 


RARRRR 


B1 02:16 i WICCPR BCPR - MA N Stor 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
00580000 65 RARARRRARARRERARARRARARARRNAARRARARRARRARRARAARARRRARRERARRARRRRR ARAL 00660000 {0 
00590000 66 * STORAGE MAP - SCPR : 00670000 
BOGOOO0G 6] AARARRAARARRARRRARAD a RUARURARARAARARRRARRAARRARRARRARRARRAR 00680000 
00610000 68 * 0000 FIXED NUCLEUS . 00690000 | 0 
00620000 69 * 00700000 
00630000 70% ® 00710000 
00640000 m* ® 00720000 |04 
LS oinineiteineelteeieeeaeiaaeebaadaiaiaaeiabaeiseieaianaeeaeeeteiataneenaeeiannaataae . 00730000 


76 * 


73 * 0600 TRANSTENT AREA CANSCPRD 00740000 
4° " 00750000 |05} 
58 * 00760000 

x 


if 
UW ZI SONS QU SCH 


4 0006 2051 AMPLTUBA EQU «RUPLUISID®3 «© TUB ADDRESS (RETURNED ON ‘BUILD 20520000 
2052 * OFFLINE PRINTER TUB‘> 20590000 


RVPLCUID EQU «RVPLUSIO*®3 «© CONTROL UNIT ID. 
FU RPLCUTO LINE WRBER. 
ew x RESERVED 


0006 2054 
000 056 RPI 1": 
2057 * 
IN SOMSPEN EU KN0 
(O25 SCAMS EA 


LS 
RERIRRIRR . 0008 2066 RWPLLEN EQU = RWPLLINE+1 © LENGTH OF PLST 


PAG 4 VWO9/117/81 12/08/81 Od: 16 é ATT CD ES 


IUCR OAR SI IMR. STATEMENT 
RRARRARARARR 00660000 102 01200000 | 11) eee 
® 00670000 ‘ O11 SENOOADR, Eg 
RRARRRARRAR 00680000 0090 121 FALSE «EC "90° FALSE CONDITION COO 01220000 Wt 
® 00690000 | 0: 0087 122 UNCOND =EQU. x'87' UNCONDITIONAL CONDITION CODE 01230000 | |} CW) 116 SFNDONOS QU 
® 00700000 123 * 01240000 vi 
i 60710000 080 124 NOP EQU X80" R BRAN 01250000 Ww 
® 00720000 |04 0000 125 NOBIT EQ Xx‘00' NO BITS MASK 01260000 | OWS 110 SFMOOLMK EQ $F 
acensoseasl * 00730000 OOOF 126 MRBITS EQU X‘OF' NUMERIC BITS ONLY MASK 01270000 (5, 10 SENDOAST 69 
3 100740000 OOFO 127 ZONEBITS EQU = X‘FO' ONE BITS ONLY MASK 01280000 WT 181 SAOOSCT EQ $F 
® 00750000 105} OOFF 128 ALLBIT EQU  X'‘FF' ALL BITS MASK 01290000 |) OO 12 SFMOFIF EQU $F 
‘ 00740000 0080129 BITO _EQU_X‘8o" MASK FOR BIT 0 - X....... 01300000 wt 
7 00770000 13 WSK FOR BIT 1 - XK... iid HD EN 
Seer 8 00780000 106 0020 131 BIT2 MASK FOR BIT 2- 0X0... 01320000 | 
x 00790000 0010132 BIT3 MASK FOR BIT 3 - Uy nee TF LOW) 
® (00800000 MASK FOR BIT 4 - wy eR TN THE 
* 00810000 07 0004 134 BITS MASK FOR BITS - ....4K.. 01350000 {0 im een ELS 
‘ oog20000 0002_ 135 BIT6 MASK FOR BIT 6 - ; es 
z 00830000 ASK FOR BIT 7 - WB 190 SFADOLOA EQ $F 
® 00840000 |08 01380000 |} yl sneeee END OF 
baraiae 00850000 equ x‘08" TAR TRANSLATED 
z CORGO0O 0004139 OF EW XO OP2 TRANSLATED 01400000 aa 
. 00870000 |09 0002 1400P1 = «EQ. «X‘02" OPI TRANSLATED 0141000 |( Wm 1% SENOS EQ) 
cel . cossoo00 0000141 PV EQU_X‘00' TASK PRIVELEDGED 01420000 We SOATTEU_ 
0850000 coor 147 WRV EQ X01 TASK NOT PRIVELEDGED 01430000 ie OAT EF 
s ooge0000 | 10 0080 143 OSABL EQU x'80' DISPATCHING DISABLED 01440000 | Ii UD 197 SOA EGU $F 
* 00910000 144 **® END OF EXPANSION ** 01450000 WOC_198 SFRODATS QU $F 
z 100920000 145 * SFNOP 01460000 OD 19 SENDA EO) 
* 00930000 |1 I ms 
PELRERER EAE 00940000 147_* _ PARAMETER LIST FOR SYSTEM FIND 01480000 OOF OL SOOREL £0U._ $F 
(00950000 OD 2 SFADOTOT £00 $F 
00960000 19 RRRARAARARAR FIND INPUT PARAMETER LIST RRERARARAAARAERAKARARRARRARAARAR 01500000 j it 
00970000 0000 150 SFNDOTYP EqQU 0 LIBRARY TYPE 01510000 mt 
00980000 0006 151 SFMOMLD6 EQU = x‘08" mF 
oogso000 | 15 0004 152 SFNDMSBS EQU X‘04" 01530000 | | mw 
01000000 
01010000 (i 28 SFROOCOM EGU $F 
o1ez0000 14 01560000 |] 8) 29 SFMOPSYR EQ) x" 
01030000 UH) 210 SAMMUSR EQ 
01040000 0009 157 SFNDDOPR EQU §«SFNDONMS+1 © OPERATION SWITCHES 01590000 Old 21 SAMLEN QU SFA 
o1ese000 | 15 0080 158 SFMIFGYS EQU = X‘80° JUST SEARCH SYSTEM LIBRARY, 01590000 | |} U2" EN OF EXPAN 
01060000 159 * SKIP SEARCH OF USER LIBRARY. 01600000 23. EM OF EXPAN 
1070000 D 1’ WE 
oroseoo0 116 { 25 Seeneneannnnn 
o1o90000 ue Ny 
01100000 ut CAIN * 
o1tieoso 1 01650000 | Ip teeecnennsnenasn 
ori20000 INSTEAD OF DESIGNATED USER LIB. 01660000 we fo 
01130000 0008 166 SENOFRF1 EQU § X‘08° RETURN LIB F1 AOOR OF PEFBER. 01670000 10 * PRB * TYPE * 
o1neno0o fd 167 * QALY UITH REGULAR CALL. THE 01690000 | |i | Bimaeneaneceses 
01150000 163 * START AOR FIELD 1S OVERLAID 1690000 mt 
1160000 f004 169 SFM EQU X‘O4" 00 MOT GQ GR DEQ LIOR DIR - Gi7e0000 (ON) 23 ACECHAIN EQ) 1 
oureane 119 wo * CALLER OOING EMD AND DEQ. 91710000 | I} (0) T4MEIAR QU ALE 


G11s0000 O08 171 SHMOFIA EQ =SFRODOPR+2 = FORMAT 1 A@OR OF GIVER USER LIB O1720000 05 105 AEB EGU AOE 


01200000 
01210000 
01220000 
01230000 
01240000 
01250000 
01260000 
01270000 
01280000 

01290000 
01300000 
01310000 

01320000 
01330000 
01340000 

01350000 
01360000 
01370000 

01380000 
01390000 
01400000 

01410000 
01420000 
01430000 

01440000 
01450000 
01460000 


O010 2114 SCAESPIN EQU 
0040 2115 SCADKCFG EQ 


173 RRRARRARRARR THD 
4 SENDDADR EQU 

175 * 

0003 176 SFNODNOS EQU 


0008-190 SFNODLDA EQU  SFNOOTNS+2 


MULTIPLE SPINDLE DISK 
2 


4 SPINDLE DISK 
DISK CONFIG FLAG 


RERRK 
RRRAK 


RARRK 


LOAD ADDRESS - SET BY CALLER 


191 **RARARR END OF LOADER PARM LIST 


5 R OF OUT 
0009 194 EQU  SFNOORLD+1 


O00C 195 SFNDOATT EQU — SFNDOCRS+3 
000A 196 SFNDDAT1 EQU FNDDATT-2 
0008 197 SFNDDAT2 EQU  SFNDOATT-1 
000C 198 SFNDDAT3 EQU — SFNDDA 


200 * 
QOOF 201 SFNDOREL EQU  SFNDOMRT+1 
0010 202 SFNDDTOT EQ = SFNDDREL+2 
203 * 
mer 
205 * 
206 * 


“0011 208 SFNDOCOR EGU“ SFNDOTOT+1 
0080 209 SFMBYR EQU X"80' 
0040 210 SFNIRPUSR EQU  X'40° 
0012 211 SFMOLEN EQ «| SFNDOCONe! 


SIZE OF PROGRAM CIN SECTORS 
3 ATTRIBUTE BYTES OF MEMBER 
FIRST ATIRIGUTE BYTE 
SECOND ATTRIBUTE BYTE 
THIRD ATTRIBUTE BYTE 


FOR TYPE P - X‘FF* => MRT PROC 
RELEASE LEVEL OF MODULE 
OTAL SIZE OF MODULECIN SEC) 
MUST BE ZERO BEFORE CALL, IF 
ZERO ON RETURN => NOT FOUND. 
FOR A LOADER REQUEST CONTROL 
TS NOT RETURNED ON A NO FIND. 


RESULTS OF FIND 

FOUND IN SYSTEM LIBRARY 
FOUND IN USER LIBRARY 
LENGTH OF PARN List 


212 * END OF EXPANSION OF SFNDP 


213 *** END OF EXPANSION ** 


hls 


{ll} 
WW, 

iy! 
a 
ty , 
tw \ 
aT 

i! 
AARON GA) 
mah 7 
a 
MOAN 
iy 
WY 
muy 
m 
th! i 
eM 
WINS AL IW! 

th! 
Hie HTT 
t 


ERR LOC OBJECT CODE _ bili sity 


et 
ran Ge 
WOES OW 
W ASL 4 (a! 
ri aT 
LE 
EO 
A) CAAA TT 
A MTL A 
OE 
Na ae 
Vd ARLEN TM 
Wi MONEY 
AGMA a 
WAR MR 
0 08 te 
Ke 
WO) 16 A A 


ru 


Bt 
21 
2 ACE) 
al 
BY TEMG 
"RSS 
ey 
We 
10), 
2M ES 
25" TO ES 
Mt 
ye 


Le | 
ME 


pan 
TONE RS 
ea aD 
Jp snore 


ay 


fie 


DISPLAY STATION OM TRANSIENT 69 2222 SCAIV 

DISPLAY STATION On RESI 

A STATION OO NESE 

THEN RESIDENT / TRANSIENT : 0027 2225 SCALD 

VERSTON OF DSO SELECTED. 

0: ; ‘ t OJ IRE 

0001 2174 SCARCNDE 15H ! 
ri ns ees 0020 2229 SCARS 


12708781 02:16 RCPR ASCPR - TRIN STORAGE TPL CO 
01 


ERR LOC OBJECT CODE ADOR STMT SOU 


01740000 0007 227 ACEPARM2 EQU ACEPARITI¢1 — SECOND IN-LINE PAR ozza0000 | 0 280 * 
1750000 ACEPARNZ*1 THIRD IN-LINE PARN 02290000 281 * 
01760000 CEPA YPE OF ACE <CTRL OF ORAG a2 * 
01770000 | 0: 0080 230 ACEMSCL EQU Xx'80' INDICATOR FOR MAIN STORAGE ACE 0 
01780000 0000231 ACE INDICATOR FOR CONTROL STORE ACE 
01790000 NDICATOR FOR PR GED A 0001 284 WOR 
01800000 0020 233 ACEIOCHN EQU  x'20' CHAINED 108 INDICATOR 04 
01810000 0010 234 ACELOG K'10" INDICATOR FOR SYSLOG CALLED 
01820000 CECPER NDICATOR FOR ASY E. r 0000 286 WOR 
01830000 X‘08" MULTIPLE WAIT INDICATOR 02370000 | 09) 0001 287 WOR 
01840000 X‘08' WS ACE _IN USE. 02380000 0002__ 288 WOR’ 
(01650000 G EQUA 0006 289 WOR 
0008 290 WOR 

01870000 0011_ 291 WOR 
01880000 0014 292 WOR 
01890000 0008 242 ACEXRI § EQU ACETYPE+2 07 0018 293 WOR 
01900000 0000 243 ACEXR2 EQU  ACEXR1+2 0024 294 WR 
01910000 a EQ 0028 295 WOR 
01920000 0010 245 ACELEN EQU ACETCBa+1 08) 0032 296 WOR 

246 **® END OF EXPANSION ** 0034 297 WOR 
01940000 CPWRK 0038 298 WR 
01950000 248 * — DATE LAST CHANGED - 02/12/81 K.S.EIKENHORST DEPT47E ® OY 0040 299 WOR 
01960000 24Q RAARARAAARAAAKRARRAKRARRARAKRARRAKAARRARRARRARRARAARRARAERARRERRARARRER, 0044 300 WOR 
01970000 0045 301 WP 
01960000 | 1 CONMNAND PROCESSOR WORKAREA 10 0046 302 WOR 
01990000 0048 _303_ WOR 
02000000 253 *XRARRERAERARARARRRR i RAARARRARAAARARAAARAAAARARA 0050 304 WORE 
02010000 | 111 D54 RARAARARAARARAAAAARRARAAARAARARRARAERARRARRALARARARAARAERARARAARAARAARR 02550000 | 11 0051 305 WORE 
02020000 255 * & 02560000 0052__ 306 WDRt 
02030000 256 * 1. THE COMMAND PROCESSOR WORKAREA IS A NUCLEUS RESIDENT ® 02570000 0056 307 WOR 
02040000 257 * — WORKAREA (256 BYTES) WHICH CAN ONLY BE USED BY CP XIENTS. ® 02580000 0080 308 WORF 
02050000 258 * i: 02590000 0084 309 WORF 
02060000 259 * 2. THE WORKAREA CAN BE USED IN ANY MANNER DESIRED BY THE COMMAND = * 02600000 
02070000 260 * = PROCESSOR XIENTS. USE OF THE WORKAREA SHOULD FOLLOW RECOMMENDED * 02610000 | 1 

261 * __ AND EXPECTED USE (SEE BELOW) WHERE POSSIBLE. * 02620000 0002311 WOOF 
02090000 262 * * 02630000 
210000 | 14 263 * 3. THE TOTAL WORKAREA CAN BE USED AS LONG AS ANY INPUT THAT * 02640000 | 14 
02110000 264 * REQUIRES LOGGING HAS BEEN LOGGED (@CMICU CALLED) AND THE STATIC * 02650000 0080 313 WOSY 
02120000 265 * = PORTION OF THE WORKAREA IS SAVED AND RESTORED = 0040 314 WON 
02130000 266 * b > 0040 315 WOFr 
02140000 0020 316 WOR 
02150000 0020 317 WPT 
ozi6o000 | i 16 0010 318 WOUN 
@2170000 0008 319 WOPR 
02180000 0008 320 UDRD 
2190000 1 ZTZ PAARERARARERRRRERRRARR UE PARAMETER LIST AREA ®**eeenecnenannnennenee 0006 321 WONT 
@2200000 273 * RECOPPENDED * THIS PART OF THE WORKAREA IS USED TO DO WORKSIN 1/0 * 0004 322 WOSA 
2710000 0004 323 WORD 
pzz7000 | 1 a 2760000 | 16 0002 324 UDRS 
2730000 0001 325 LOPR 
‘O2290000 am * USPL USO" PARAPETER LIST €QUATES 02780000 326 * 
19 
Cz7O00D * 07900000 0003 328 WOOP 


C22 
DATE BL/12/08 a holahe PAE 36 TINE 2:15 DATE 81/12/08 


DATE B1/ 12/08 


yy 


CADSSNS EQ 


0028 2228 SCADSSCS 


REA 
WORK AREA 


RECTORY 


SS OF CONTROL STORAGE AREA 
$S_OF 1/0 PROCESSOR DUMP AREA 


PARAMETER LIST EQUATES FOR 


SYSTEM REQUESTS TO WORK STATION DATA MANAGENENT 


6 WORD FQU 
7 WORACC = EQU 


X‘32' 
X'34' 


Xx 


: 
s 


WORSPF 
WOPOGE 


£28 


3000000 
eux 
5 301 eq X'45° TNVALID GAIJI OURING PRINT OP. 03020000 
EQU X'46" PRINT ISSUED FROM UNLOCKED KBD. 03030000 
equ X"48' PRINTER ALLOCATED ON PRINT OP 03040000 
cqU Xx 


1) 
EQ Xx'51' 
‘52 e 


gg 
gages 
enggi 
z 
: 


a8 
g 


28 
38 


0080 313 WSYS EW X'‘30" 
0000 314 WOR EW OX'40° 
0000 315 WFD «EQ X*40° 

X‘20° 


OPERA 

ACCEPT SUCCESSFUL TO REQUESTOR 

STOP REQUESTED BY SYSTEM OPERATR 
P REQUES 


t { 
ACQUIRE OK TO OWNED TERMINAL 
ACCEPT REJECTED- NO_INVITES 


ACQUIRE FAILED TEMPORARILY 
WORK STATION RELEASED HIMSELF 


WORK STATION OFFLINE 
STOP_INVITE FAILED-DATA AVAIL. 


2 OPT TAKEN ON GJI RAM FULL COND 
2 OPT TAKEN ON INVALID GJI CODE 
2 OPT TAKEN ON UNDEF. GJI CODE 


0 
03010000 


03070000 


03140000 
03150000 
03160000 
03170000 
03180000 
03190000 


03210000 
03220000 


03230000 
03240000 
03250000 
03260000 
03270000 


03090000 | 1. 


WORSCJ =EQU  X'56' READ SCREEN CMD REJECT. GJI 03080000 

WORPE = =EQU X80" PERMANENT 1/0 ERROR OCCURRED 

WORPEP  EQU X'34' PERM. 1/0 ERROR ON PUT-NO-WAIT 03100000 
0002 311 WORM EQUWDRTC+1 EXTERNAL OP-CODE MODIFIER 03120000 


1G 


19 


20 


ErPA WSCPR - MAIN 


ws 
NAG 


iPl "th 


ERR LOC OBJECT CODE ADOR STMT SOt 


g 
Wee iy Sale ¥ siz Sele soles 


BSSSSESSSESSISERSSSESSESSISSSISE SESS SES 


8 
Sis 3 SSS SSE SS SSS 


0025 370 VON 


02810000 
02820000 


02830000 


02850000 


02870000 


5 


0010 2273 SoMICRT equ 
(0080 2276 SCAHFERR EQU 
0040 2277 SCANIPLC Eg 


~ ERROR IN HISTORY FILE 
PROCESSING COMPLETE 


xa" 
xa: a 1p. 


0020 2278 SCAOVER €QU x'20' ae OVERRIDE RECEIVED 227 90000 

0010 2279 SCAMIPL EQU  X'10" K'10" ~ IPL-SIGN ON COMPLETE 22000000 

0006 2280 SCATRBLO EQU X‘08' X°0' ~ IPL-FILE REBUILD 22810000 

0004 2961 SOMEKT CW KO ‘Oa" - SYSLOG EJECT AT €0 22820000 

0002 2262 SCANCLOK EQU  X'02' . K'02" ~ CONFIG RECORD LOCK 1R31 22830000 
X'O1' . X'01' - PREPARE REQUEST ISSUED 


0001_ 2283 SCAPREP EQ 


INVITE INPUT OPERATION 
PUT-NO-WALT OPERATION 


RELEASE TERMINAL REQUEST 
GET TERMINAL ATTRIBUTES 
EXTEN 


STOP_ INVITE REQUEST 
a) Lap aa PUT 
WOSTI+WDPUT*WOGET STOP INVITE, PUT THEN GET 


EQU WOSTI+WOPNW STOP INVITE, PUT-NO-WAIT 03480000 
0017 348 WOSPI «= EQU. WOSTI+WDPUT*WDINV STOP INVITE, PUT THEN INVITE 03490000 

09 0020 349 WORES EQ X'20' RESET KEYBOARD 03500000 j0? 
0021 350 WORTG QU = WORES*WOGET RESET THEN GET DATA 03510000 
0025 351 WORTI = EQU WORES*WDINV RESET THEN INVITE INPUT 03520000 
10 0040 352 WERS EQU X‘40' ERASE INPUT FIELDS 03530000 
0041 353 WETG = EQU —WOERS*WDGET ERASE THEN GET DATA 03540000 
0045 354 WETI Q DERS+WOI ERASE THEN INVITE INPUT 03550000 
ll 0080 355 WOCLR EQU X‘8o' CLEAR THE SCREEN 03560000 
0080. 356 WEVK EQU.X‘80' EVOKE 03570000 
0068 357 WEVE EU X‘88' EVOKE END OF TRANSACTION 03580000 
1 0085 358 WEVI =F K'85' EVOKE INVITE 03590000 
0081 359 WEVG = FQUCX‘81° EVOKE GET 03600000 
0042 360 WPEC §=EQUOX*42" PUT END OF CHAIN 03610000 
0022 361 WPEF FW Xx‘22' PUT END OF FILE 03620000 
0012 362 WF EU OX‘12" PUT FUNCTION MGMT HEADER 03630000 
0017 363 WRI «EQ X‘l7' PFA INVITE 03640000 
14 0013 364 WRG «EQ X"13° PFA GET 03650000 
OOIA 365 WPEX EQUUS OX"IA‘ PUT END OF TRANSACTION 03660000 
0065 366 WROD] EQ OK'S5* REQ. CHANGE DIR. INVITE 03670000 
. 0041 367 WACDG FQ X'4i' REQ. CHANGE DIR. GET 03680000 
0032 368 WFAIL EQ X‘32° PUT FAIL RESPONSE 03690000 
0020 369 WNGRF «EQ xX'20° NEGATIVE RESPONSE 03700000 
16 0025 370 WNGRPI EQU  X‘25* NEGATIVE RESPONSE INVITE 03710000 
0021 371 WONGRPG EQU X‘21° NEGATIVE RESPONSE GET 03720000 
0010 372 CA EW OX"10° CANCEL 03730000 
I 0015 373 WCRI EGU X‘15° CANCEL INVITE 03740000 
O01] 374 WOAMG EW X‘lI* CANCEL GET 03750000 
OOEO 375 WUNEOS «BW X"EO" NORPAL END OF STEP 03760000 
19 OOES 376 WONEOJ EW X‘ES" NORMAL EMD OF JOB 03770000 
OOFO 377 WAEOS QU X‘Fo° AOMDETWI. END OF STEP 03780000 
OOFS 373 URED = X'S" AORORTVL. EMD OF 5B 03790000 
19 OOFF 379 WOASFL «EQU OXFF ICSSQS ASSIGN FAILURE 033900000 
(oes SO STR  x Oe SET Tier 03810000 


fy 
| 


ERR LOC OBJECT CODE 


71 


Sherri 


22710000 

22720000 

377 0000 326 

22740000 16 0070 2327 SCAOCPS1 EQU 
22750000 


rian a 
22770000 SPOOL WRITER/J08Q 
22780000 SON SEND EQN CO 


0000 


22800000 
22610000 

1520000 
22830000 
22640000 


Sorry Ty 


386 W960 MASK FOR WHICH LINES TO DISPLAY aadz2 
387 WAIL uy W AID BYT INPUT OPERATIO 90022 
0000 388 WOIOPC EQU WOAID¢l INTERNAL OPERATION CODE 


OOFF 390 WOCPHELP EQU  X'FF' SPECIAL CMD PROC HIGH LEVEL HELP MIC 
0000 392 WOSRCT EQU WDIOPC SAVE/RESTORE COUNT 


00C1 «394 WOSROl =EQU  X‘O1' SAVE AREA 1 - MESSAGE /SYSLOG 

0002 395 WSROZ EQ X‘02" SAVE AREA 2 - INQUIRY 1 

0003 396 WOSRO3 EQU  X'03' A ~ INQUIRY 2 

0008 397 WSRCN EQU x'08' SYSTEM CONSOLE SAVE AREA 

0009 398 WSRCM =EQU X'09' CONSOLE MODE SAVE AREA 

OO0A 399 WOSRCW EQU  xX'OA’ CONSOLE WORK STATION MODE SAVE AREA 


OO0E 401 WORUPD §=EQU = WIOPC+1 ROLL FLAGS 


0080 403 WORUP = EQUX'80' ROLL UP 
0040 404 WORDN §EQU X'40' ROLL DOWN 
0020 405 WORCL = EQU X‘20' "CLEAR VACATED LINECS) 


M 
OO0F 407 WANE =EQU = WORUPD+1 NUMBER OF LINES TO ROLL 
OO10 408 WSLNE EQ WOMLNE+1 START LINE NUMBER FOR ROLL 
0011 409 WELNE EQU = WOSLNE+] END LINE NUMBER FOR ROLL 
0012 410 WVSLN «~EQU  WELNE+] VARIABLE START LINE NUMBER 
0014 411 WINDA =EQU  WVSLNe2 ADORESS OF OVERRIDE INDICATORS 
0016 412 WFHTN §=EQU = WINDa+z FORMAT INDEX ENTRY ADDRESS 
0017 413 WOLEN = EQU —WDFITTN) PARAPETER LIST LENGTH 

414 **% END OF EXPANSION ** 

0016 415 CPUSDM = 6EQU «CPURK+WDLEN-1 USOM PARAMETER LIST AREA 


Gl] SARRRSRRRERERRRERERAR MESCALE RETRIEVE PARAPETER LIST =™xeananananax 
418 * RECOMMENDED * THIS PART OF THE WORKAREA IS USED TO INTERFACE * 
419 * USE * WITH THE MESSAGE RETRIEVE FUNCTION. * 
bv.) 


* THIS PART OF THE WORKAREA CONTAINS A TABLE OF 3 


PPA CPR 


ERR LOC OBJECT CODE 


2370 * 
BN 
007A 2372 
nett." 
0rd 2375 
OIE 2376 § 


} 


mit 
PAGE 0 VOo/11 
03830000 2 0019 430 CPOPADR] EQU CPOPLNI*2 © OPERAND 1 RIGHT-HAND ADORESS 04310000 | 02 
03840000 OO1A 431 CPOPLNZ £0 OPADRI+1 — OPERAND 2 LENGTH-1 04320000 
(35 twit) te ’ 137 CPOPADR: WT “OND A: Pr Laan 2 Gi re, r xON00 
EQU «CPOPADR2+1 = OPERAND 3 LENGTH-1 04340000 | 0 
SPLAY a8022 EQU__CPOPLN3+2 04350000 
S R022 6 
hy. 
L HELP MIC 03910000 i 0023 439 CPOPCNT EQU CPOPADR4+1 © NUMBER OF COMMAND OPERANDS 04400000 | 05 
' 
06 
. BUILD JCB REQUES 
. AID BYTE FUNCTION REQUEST 
SAVE AREA Rt 
p . CONSOLE COMM 
000B 454 CNCLINQ EQU X‘0B' ; EL FROM INQUIRY MENU 
Q00C 455 TIME FQ X'OC' . TIME COMMAND 
0000 456 J0BQ £Q | JOBQ INITIATION CALL 
O00E 457 FND - FIND COMMAND CODE 
0011 460 STRTPRT EQU X‘l1‘ « START PRT CALL FROM START SYSTEM 
0012 461 AUTOSTAT EQU  X‘'12° 7 TIC UPDATE STATUS CALL 
0014 463 ERROFF EQU X‘14' 
64 * EQ X'15° 
0017 466 ERRCNCL EQU X‘17' 
0018 467 ERRRESM EQU X‘18' 
0019468 TIRESTAT EQUx"19° ~ TIRER STATUS REQUEST CDEVELOPMENT> 
OO1A 469 INQOPT! QU. XIA" ~ INQUIRY OPTION ONE REQUEST 
LAARAAARRATARRAR 
ITERFACE * 001D 472 CNCLSVC x'1D° 
* OOLE 473 ACDERR EQ X'IE‘ 04740000 
REREARARERARRRR, OOIF 474 ACORESUN EQU = X‘IF‘ - ADDR COMPARE DUMP AUTO RESUME 04750000 
0020 475 ACDEND EQU xX‘20' - END ADDRESS COMPARE DUMP 04760000 | 17; 
0021 476 ACDUPDTE EQU  X‘21° ~ UPDATE ADDRESS COMPARE DUMP 04770000 
0022 477 CLEMD EQU X‘22° ~ END THE MENU, BUT NO 1/0 04780000 
RERASRALRRRRIRR, 5 0023 478 IDELETE €QU X‘23° - TOELETE COPPAND CODE 04790000 | 18 
BLE OF ® 0024 479 OFFOCL =FQU  X‘24' - OFF OCL STATEMENT 04800000 
TENTS. * 0025 480 CPIMQALL EX'S‘ ~ CPIQ CALL 04810000 
RRERARE RS ERERER, . 0026 481 CPONCALL EQU = X'26" ~ CPON CALL 04820000 | 19 
0027 482 CUICML EQ X‘27° - OCI CAL 04830000 
0028 483 STOPS FQU Xx‘z8* - CALL TO AUTORWTICALLY STOP JOB, ALL 04840000 
D + 0 
C26 
a 59 THE 02-15 DATE $1/12/08 SPL/3 «VERSION 08/28/80 PAGE 6000s TIME 02:15 DATE 81/12/08 
ii IF OO LIME SOURCE 
3266 TUBSENS2 QU «TUBSEMSi+1 «= SENSE BYTE 2 
Wt SALE 
i, 3243 * fe x3 ~ DEVICE HE BUSY 
7 * tw x0 . LOE PARITY CEK 
32 * ae x2 ~ GRIT SOT RILALE CPRIWTER GLY) 
iB 3 * mw x . GOTSTAADINE STATUS 
3g * ERCEPTION STATUS EQUATES START 
33 * Bo xe" . © SHUS CALL BITS OFFD 
Ie * eo xw ~ WAL OR ATIRIBOTE Tee 
ws * oe xDs" - TALID ACTIVATE 


* 221 ON LINE 3 
X21 ON LINE 4 


YT KO 


#60 8 86TEE 02:15 


04590000 
04600000 
04610000 
04620000 
04630000 
04640000 
04650000 


DATE 81/12/08 


baal IN STORAGE TP! - CONMAND PROCESSOR FUNCTION PAGE 12 VO9/11/81 12/08/81 02:16 o1 
Rn LU, OSJtG! COU ADOR STNT SOUKCT AISCEN| 
02 0029 aseuRT = EU OX'29" . WRITER COMMAND CODE oassooo0 | 02 
0001 485 J080 EOU I: 1080 COMMAND CODE ‘ 04860000 
ocd” 486 STATUS EQU C'D’ » STATUS COMMAND CODE (04870000 
0 00c3 487 CANCEL EQ CC" . CANCEL COMMAND CODE 0490000 | 0. 
4! 1 Vie! an dn ML wees LOU Fakultet 
O4 (4 
7 a 
05 493 assi@n equ ca’ : 05 
oot 495 HOLD Eq cH . HOLD COMMAND COD (04960000 
06 0003 496 RELEASE EQU C'L' « RELEASE COMMAND CODE 04970000. | 06) 
498 RAARRARRAARARRARRARR' * U ry @CPOC PARAMETER LIST RHARAAKAAAARARRAARK 04990000 
07 499 * EXPECTED * THIS PART OF THE WORKAREA IS USED WHEN INTERFACING * 05000000 | 07 
500.* _USE__*_WITH THE COMMAND PROCESSOR CLEANUP XIENTS ® 05010000 
RRR Tit RR 


CNCU PARAMETER LIST AREA 
SWITCH BYTE 


-_O=NO OUTPUT TO is E DISPLAYED 


+ O=NO 1NeUT Tne OReA TION AVAILABLE 
~_1=INPUT INFORMATION AVAILABLE 


| Y=ROLL SCREEN ‘SPECIFIEO # OF LINES 


0010 512 CMCULOG EQU X . o=D0 NOT LOG INPUT OR OUTPUT INFO 05130000 
513 * - 15L0G INPUT ANO/OR OUTPUT INFO 05140000 
1 0008 514 CMCUSWS EQU X‘08‘ . O=SHOW MESSAGE ONLY TO W.S. 05150000 | 1 

515 * «_1=SHOW MESSAGE TO SYSTEM CON ALSO 05160000 
0004 516 CMCUIRL EQ X‘04' - O=D0 NOT INCLUDE INPUT LINE IN ROLL 05170000 

1 517 * « TSINCLUDE INPUT LINE IN ROLL 05180000 | 13} 
0002 518 CMCUMSUB EQU X‘02' - O=NO MSG SUBSTITUTION 05190000 
519 * - 15456 SUBSTITUTION TO BE PERFORMED 05200000 

14 0001 520 CMCUBOC EQU xXx‘Ol1' . O=THIS IS NOT A BROADCAST 05210000 | 14 
521 * ._1=THIS IS AMSG BROADCAST 05220000 

Yy 0027 523 CMCUMIC EQU CHCUSWI+2 MIC NUMBER TO BE LOGGED/DISPLAYED 05240000 | 15) 
0028 524 CACUSW2 EQU CHCUMIC+1 SWITCH BYTE 2 05250000 
0080 525 CACUNINV EQU = X'80° . O= INVITE WORK SATAION 05260000 

16 526 * « 100 NOT INVITE WORK STATION 05270000 | 16 
0040 527 CNCUNDIO EQ X"40" ~ O-ISSUE WSDM_OUTPUT 05280000 
528 * « 1=00 NOT ISSUE WSDM OUTPUT 05290000 

7 0020 529 CMCUCOND EQU§ X'20° . 000 NOT ROUTE ONLY TO CONSOLE 05300000 | 17; 
530 * -_1=ROUTE OUTPUT ONLY TO CONSOLE 05310000 
OO10 531 CPCUSTAT EQU X"10° - O-IGNORE THIS BIT IF OFF 05320000 

18 532 * ~ 1=1F CHCUINP IS ON THEN DO NOT 05330000 | 18 
533 * UPDATE STATUS, IF CMCUINP IS OFF 05340000 
ap * THEN UPDATE STATUS pen 

19 - BITS 4 - 7 RESERVED 19 


isk. so rama Gas OrCusuz LENGTH OF OUTPUT TO #cPOC 


002A 537 CMa EU C2 ADORESS OF IN CORE MESSAGE TEXT 


ERR LOC OBJECT | 


12 YO9/11/81 12/08/81 02:16 ol 


RARRAWK 
MF 

* 
RARRAK 


ED 


es 


1 99 DU UU 
04960000 
04970000 


i 


539 * OR OUTPUT TO #cPOC 05390000 | 
539 CHCUNSOR EQU  CRCUSM2+2 ADDRESS OF MSG SUBSTITUTION DATA 05400000 
Th wer te ey EMCTH OF PARA CT 1000 


T CUNGA~CPCMCU+! 


RRARARAARARAARAKAARAWRKRRARRAAAARARRARRER 
The WORKAREA CAN Be USED BY COMM * 
® PROCESSOR XIENTS IN ANYWAY DESIRED. id 


G45 RARAARRAAAKARARARAAARAKARAAAARARAKARARARAARARARRAARARRARARARARRAARARARR 


0028 547 CPWRKL §EQU CHCUNGA+] §=©=—« START OF WORK AREA 
OO7C 548 CPWRKR QU CHCUNGA+82 END OF WORK AREA 


550 RAAAAAAAAARRAARARARAARAR cPro PARAMETER LIST RARAARARAARARARAARRARAARAAARRR 
551_* RECOMMENDED * THIS PART OF THE WORKAREA OVERLAYS THE GENERAL PART * 
52 * US OF THE WORKAREA, BEGINNING AT CPURKL. ® 
® [TS INTENDED USE 1S A ONE BYTE PARAMETER LIST L 

® TO XPIO TO 00 

PARRA: Ti 


0080 558 CPIOSAVE'EQU X'80' 

0060 559 CPIOSIN EQU X'60' « RESTORE SCREEN WITH INVITE 

0040 560 CPIORSTR EQU  X'40" «RESTORE SCREEN WITHOUT INVITE 
: ON SA R 


NIBBLE OF THE PARMLIST IS USED 
TO INDICATE WHICH SAVE AREA IS 
BEING USED. 
0020 565 CPIOINV EQU . INVITE SCREEN REQUEST 
0010 566 CPIOSINV EQU « STOP INVITE REQUEST 
0000 567 CPIOPTNI EQU + PUT SCREEN WITH IN 
0008 568 CPIOPUT EQU + PUT SCREEN WITHOUT INVITE 
0004 569 CPIOUNF EQU « UNFORMATTED PUT REQUEST 
CPIO CAN DISPLAY ANY OF THE 
FOLLOWING DISPLAYS: 
COMMAND DISPLAY 
CONSOLE DISPLAY 
STANDBY DISPLAY 
SRT INQUIRY DISPLAY 
MRT INQUIRY DISPLAY 


579 RARRRRRRRARRRARRRARRN STATUS FIRE FIELD SAVEAREA ***PANRRRARRRARRRARRAR 
580 * EXPECTED * THIS PART OF THE WORKAREA IS USED BY STATUS ie 


581 * USE * COMMAND TO GET THE FIRE CONTROL CHARACTER(S). ® 
582 SRARRARAARARRRRARRARARRARNARRARNARARARARARARERRRERERRERRRRRRRARRARRRRRR 


007) 584 CPFIREL EQU  CPWRKR+1 START OF FIRE FIELO SAVEAREA 
OO7F 585 CPFIRER EQU CPFIREL+2 END OF FIRE FIELD SAVEAREA 


58] *RRRRARRRRRARARRRRERR ACCEPT INPUT BUFFER ***ennnnnanannxanxnna nen nennn 
588 * EXPECTED * THIS PART OF THE WORKAREA IS USED TO ACCEPT * 


589 * USE * AND LOG INPUT FROM A WORKSTN C@CPRT AND @CMCUD. * 
5D RARRARAAAARARARAARARAAARAERARRARRERAAARARARARERERRRARRRRERRERRRRERAR RRR, 


PARE 620 TIME 02:15 OATE 81/12/08 


05390000 


05410000 


C080 592 CPVSOMIN EQU «CPFIRER*1 © START OF INPUT AREA 


FOU 
ny 
y ND EOU 


598 CPSTATA 


Swe y 
595 CPINPOTE 
OK NPS: ' 


601 * 


EXPECTED 


Patch EQU CPTUs a: $$ 
607 CPRSV =EQU CPATCB+1 RESERVED 
608 _**® END OF EXPANSION ** 


609 * ( 


611 * CHIGH BYTE OF ID FIELO CONTAINS X'00'. 
0000 612 CXS: EU 0 TRANSIENT ‘<UL BY S' 
0001 613 CXMAX EU 1 MAIN STORAS RLD PROCESSOR 
0002614 CKNUAB QU. 2 ABNORMAL TAs, TERMINATION 


0003 615 CXLOAD EQ 3 112 = 00 UAFTROL STORAGE LOADER 


GIO **CONTROL STORAGE TRANSTENT NUMBERS *® 


1 0000 616 IL2LOAD EQU 0 IN-LINE PARM 2 ‘S 0 FOR LOADER FUNC. 
0003 617 CXASGB EQU 3 1L2 = 01 ASSIGN FROM BACK OF ASSIGN/FRE 
0001 618 IL2ASGB EQU 1 IN-LINE PARM 2 IS 1 FOR ASGB FUNC 
1] 0004 619 CXIOERP EQU 4 DISKETTE ERPS 
0005 620 CXPSIPL EQU 5 STORAGE I 
PCK2 EQU 6 ERROR HE 
1 0007 622 CXFDAL3 EQ 7 ALTERNATE SECTOR ASSIGNMENT # 3 
0008 623 CXMMEID EQ 8 W/S ERP XIENT 
0009 624 CXTIX! EQU 9 INTERVAL TIMER # 1 


13 OOOA 625 CXTIX EQ 10 INTERVAL TIMER MASTER 
0008 626 CXNUTEID EQU 11 5211 PRINTER ERP XIENT 
000C 627 CXMUBEID EQU 12 5256 PRINTER ERP XIENT 
14 0000 628 CXNUCLID EQU 13 CTL PROCESSOR LOGGING XIENT 
QOOE 629 CXTRACE EQU 14 SET TRACE INDICATORS 
OOOF 630 CXMBBLID EQU 15 DATA COMM BSCA LOGGING XIENT 
1 0010 631 CXNUSLID EQU 16 DATA COMM SDLC LOGGING XIENT 
0011 632 CXNUGLID EQU 17 1/0 -- ERROR COUNTER LOGGING XTENT 
0012" 633 CXADINIT EQU 18 A/0 INITIALIZE ROUTINE 
16 0013 634 CXFDERP EQU 19 FDIOS ERRROR RECOVERY 
0014 635 CXCONMNT EQU 20 CONCURRENT MAINTENANCE 
0015 636 CKMPD =EQU 21 PRINTER/DISPLAY ERROR ROUTER 
V7 0016 637 CARE EQ 22 1255 ERROR TRANSIENT 
0017 638 CXMUIOE EQU 23 1/0 ERROR TRANSIENT 
O18 639 CKXMALID EQU 24 REMOTE W/S LOGGING XIENT 
18 0019 640 CXACDUMP EQU 25 SET ADDR. COMP. REGISTERS XIENT 
OOIA 641 CXMSMF EQU 26 SYSTEM MEASURE FACILITY XIENT 
OOIB 642 CXNUNEID EQU 27 3262 PRINTER ERP XIENT 
1 OOIC 643 CXMRALD EQ 28 1255 TRANSIENT #2 
OO1D 644 CXMUGETP EQU 29 NON-SWAPPABLE GET PAGE XIENT 


OOLE 645 CXNUMEID EQU 30 FAST MATRIX PRINTER ERP XIENT 


PAGE 63 


2 
3 
3 


THE 02:15 


o2:15 


06010000 
06020000 
06030000 


06040000 


06060000 
06070000 
06080000 
06090000 
06100000 
06110000 
06120000 
06130000 
06140000 
06150000 
06160000 
06170000 
06180000 
06190000 
06200000 
06210000 


. LINE 4 CONFIGURATION (BYTE 0) 1R6/ 
> SEE COMPRESSED UNIT DEFINITION TABLE CUDT) 
RIPTION FOR DEFINITION OF B 


D1 


02] OOF 646 CKNUULID EQU 31 AUTOCALL LOGGING XIENT 
0020 647 CXNUXLID EQU 32 X.21 LOGGING XIENT | 8 
03 649 **® END OF EXPANSION ** 


650 * 


EXACT AND MEANINGFUL. THAT IS, ITEMS IDENTIFIED AS ‘CONSTANT’ * 
07 660 * ARE EITHER INITIALIZED AT ASSEMBLY TIME OR ELSE FILLED IN AT * 


661 * TPL_TIME AND ARE NOT MOFIFIEO BY ANY OTHER FUNCTION. ul 

662 * ITEMS. IDENTIFED AS ‘NON-CONSTANT' MAY BE MODIFIED BY CTRL = * 

08 663 * STG NUCLEUS FUNCTIONS OR 1/0 FUNCTIONS. . 
*® 


668 *® 1 CONSTANT CAN BE PLACED IN DIRECT AREA AND REFERENCED 


10 669 * WITH A 'L* INST - THUS REQUIRING 2 CTRL STG WORDS TOTAL 
670 *® 
671 *® 2 CONSTANT CAN BE PLACED IN REG BY 2 IN-LINE ‘LI’ INSTS  * 
11 672 * WHICH HAVE THE LEFT AND RIGHT BYTES OF THE CONSTANT * 
673 * EMBEDDED IN THEM - THUS REQUIRING 2 CTRL STG WORDS TOTAL * 
674 *® * 
12 675 * THE STRATEGY FOLLOWED IS TO ALWAYS USE ALTERNATIVE 1 (UNTIL * 
® 


676 * DIRECT AREA IS EXCEEDED) SINCE THIS CONSIDERABLY SIMPLIFIES 


677 * THE PROCESS AND ERROR RISKS REQUIRED TO GET AN ADDR & 
B 678 * CONSTANT SPLIT INTO A LEFT BYTE AND RIGHT BYTE FOR THE LI * 

679 * INSTS. i 

CBO RRRRRARAARRARRARRAARARRRRRRARNAARRERRERARRANAARRARRRRRRARRARRARRARARAR 
M 682 SRRAAAARARAAAAARAARARAAARARAERAARAARARRARRRARARAARARAARARRAARARAARRARAR, 

683 * ‘"NON-CONSTANT' NUCLEUS TRANSIENT AREA WORKSPACE. * 
ib) 684 * THESE EIGHT WORDS MUST START AT THE FIRST WORD IN THE DIRECT AREA * 

685 * BECAUSE THEY ARE ALSO COMMON TO THE IMPL WRAP ROUTINES ed 

656 RRERERKAARARRRARARRERRERRERREAREARERAAANARARRARARRRRRARRERERARRRERAARAR 
16 0000 687 DINUXNTO EQU 0 XIENT WORK SPACE # 0 


0001688 DINUXNT] EQU  DINUXNTO+1 —-XIENT WORK SPACE # 1 
0002 689 DINUXNT2 EQU DINUXNTI+1 = XIENT WORK SPACE # 2 
vi 0003 690 DINUXNT3 EQU DINUXNT2+1 — XIENT WORK SPACE # 3 
0004691 DINUXNT4 EQU  DINUXNT3+1 — XIENT WORK SPACE # 4 
0005 692 DINUXNTS EQU DINUXNT4+1 = XIENT WORK SPACE # 5 


18 0006 693 DINUXNT6 EQU DINUXNTS+1 = XIENT WORK SPACE * 6 
0007 694 DINUXNT7 EQU  DINUXNTG+1 —-XIENT WORK SPACE # 7 
6% * 
9 0000 696 DIDSKTAB EGU = DINUXNTO DISK EXTENT TABLE CUSED BY IPL ONLY) 
0004 697 DIDSKTBL QU 4 LENGTH OF A DISK EXTENT TABLE ENTRY 


Pat 64 = TIME 02:15 


- LEVEL © INQ SG AAS BEEN REROUTEDCRE «> 
-_ LEVEL 1 0NQ NGG AS BEEN REROUTECREL 2) 


SCPR MISCPR ~ IN STORAGE T 
ERR LOC OBJECT CODE ADDR 


0010 


0020 


0001 


Med 
1R6| 


GE 15 WO9/11/8 


RRARRRAR IK 
RRRARRERIK 
5 RK 
RRAARRRRK 

RAKKRARAAK 


ERARRARRKER 


=4 
o 
z= 
fe) a ee ee ee ee ae | 


: 


TRE 02:15 


d STACK MANIPULATION 

000000 0006 2653 SVCASSGN EQU  xK'06' ASSIGN 6540000 
26010000 [I 0007 2654 SVCFREE €QU  xX'07' FREE 26550000 1 
26020000 0008 2655 SVCISEC EQU  xK'08' INCREMENT SYSTEM EVENT COUNTERS ; 26560000 
36030000 0009 2656 SVCSNSSW EQU  X'09" SENSE CONSOLE DATA SWITCHES ee eee ee “965 1 0000 
26040000 13 QOOA 2657 SVCASGN EQU  xX‘OA' ASSIGN SYSTEM QUEUE SPACE SVC 26590000 | 1 
26050000 0008 2658 SVCPPSVC EQU  X"0B' PSEUDO DELAYED SVC POST ACM FUNCTION 26590000 
26060000 OO0C 2659 SVCLDATR q x'o' LOAD ATRS 26600000 
26070000 19 0000 2660 SVCPNR EQU X'0D' ALTER PROGRAM MODE REGISTER CPMRD 26610000 | 
26080000 QOOE 2661 SVCQUEUE EQU X'‘OE' QUEUE _/ DEQU SYSTEM CONTROL BLOCKS 26620000 


UNUSED 
BEST FIT ASSIGN SAVE AREA 8 07040000 


SWAP 


CURRENT (EXAMA - 28) 6 
STORE FEATURE INFORMATION FOR ATOM — a3255 


109 RAAAKRARRAARARAAARKERARARRAARAAARERAARARARARRARRARRARRAKRARAAAAAAARARAAK 


07100000 
710 * POINTER TO SMF SIO COUNTER AREA IN MAIN STORAG « 07110000 


711 RRAKRAKRKAAKRRARAAKAARAKRARAARAARAARAARARAARARARAAAARAARARARARRARAARRAARK 07120000 06) 
Q00E 712 DISHFA EQU _DIIOLDAR+1 ADDR OF SMF SIO COUNTER AREA IN MAIN STG. 07130000 

73 * 07140000 

14 RRARRAAAAKRARARARRARRKRRARRAKARAAARARAAARAAKAARARRARAAKARARRAUKAARRARAARARARRARKR 07150000 07 

715_* MAIN STORAGE SIZE AND BAD 2K PAGE COUNTER WORD s 07160000 

716 RAKRRRAAKRRARARRARAKARAAKARAARAKRAKRARRARRAAARRARAAAAKARRAKARARAARAAAARAAAARKR 07170000 

717 ® THE FOLLOWING BIT IS SET IN THE HIGH BYTE IF NECESSARY 07180000 |08 
0080 718 DIPGFULL EQU_ x'80' BAD 2K PAGE ELEMENT IN M.S. IS FULL 07190000 

ni9* NUBER OF BAD 2K PAGES CHIGH BYTE 07200000 
GOOF 720 DIMSIZE EQU DISMFa+l MAIN STORAGE SIZE IN 2K PAGES (LOW BYTED 07210000 |09 

7a.* 07220000 

122 RARRARRKARAERAKRAAKRAKRARAARAARAAAARARARAAAAAKRARAARAAAKARRAARKAARAARERAARAA 07230000 

723 ® SYSTEM INDICATOR WORD FOR SEGMENT ONE x 07240000 | 10 

724 RARRARAKAAAARARRARRARAARRARRARAARAAAARAAARAKARARAARAKKRAAAKAKAERARRARAARRAR 07250000 
GO10 725 DIINDRI QU  DINSIZE+1 SYSTEM INDICATOR WORD FOR SEG 1 07260000 
QO10 726 DICSIZE EQU DIINDRL CONTROL STORAGE SIZE CLOW BYTE) 07270000 | 11 

721% 07280000 

128 RAAAARAARKAAKRAAAARAAARRARARARARRAKRARRRRARRARRARAKRAAKRARRARAAAAAAAARARARAAK 07290000 

729 * SYSTEM INDICATOR WORD BIT EQUATES CHIGH BYTE * 07300000 | 12] 

130 RRAARRRRRAKRARRAKRAKAAAAAARARAARRARAARAAKARAKRAAAKAARRAARARARARAARKERHERRARK 07310000 
0030 731 DPPROTCT EQU  X"80" DUFP FILE PROTECTED INDICATOR 07320000 

732 * * 0 - THE DUMP FILE IS NOT PROTECTED 07330000 | 1 

733 * * 1 - THE DUMP FILE IS PROTECTED 07340000 
0040 734 DYPINPRG EQU X"40" STORAGE DUMP CURRENTLY IN PROGRESS 07350000 

735 * * 0 - NO DUMP IN PROGRESS 07360000 |14 

136. * 1 STORAGE DUMP IN PROGRESS 07370000 
0020 737 OrPSUSAC EQ X20" SUSPEND TASK FOR ADORESS COMPARE DUMP 3 07380000 

738 * * 0 - DONT SUSPEND TASK FOR DUMP 3 07390000 | 1 

139 * * 1 - SUSPEND TASK AFTER DUMP 3 07400000 

14 * EQ X‘10" UNUSED 07410000 
0008 741 MPIOBERR EQU  X'08" MULTI-PURPOSE 10B ERROR INDICATOR 07420000 | 16 

142 * * 0 - ND ERROR IN MULTI-PURPOSE 108 07430000 

743 * 7 — PERM DISK ERROR IN ALP. 108 07440000 
0003 744 PSIPLFL QU X‘04 IPL FROM DISK INDICATOR 07450000 | 17 


0002 745 PSIPLI] EQ X‘02' IPL_FROM DISKETTE INDICATOR 
0001 746 MLCAZ2K EQU  X‘O1" LCA 32K CONTROLLER 


14 
748 * CONTROL STORAGE SIZE IN SECTORS (LOW BYTE) 


C31 
DATE 91/12/08 SPL/3 VERSION 08/28/80 PAEE 650 TIPE 02:15 GATE 81/12/08 
Diy iF OO LINE SOURCE 0 
j 352] TURNS] BQ TUBRFOSP +] FIRST COPPWWD KEY PGK BYTE 
32 TOSS BW Xe" GUBLE COND KEY 8 
1% 32 TOO? Bw Ka’ ERABLE COMANG KEY 7 a 
37a Toms Bw K'20" ENBLE COWEN KEY 6 
BS TONS GW x0" CNMBLE COND KEY 5 
oe 32s TOs Ew xu" EBLE COND KEY 4 0: 
7] TOSS BW KOs EWBLE CORR KEY 3 
Bas NOE? KU GWBLE OONEMD KEY 2 
5 THOS Se xm" EWBLE COWEN KEY 2 04 


SCPR MSCPR - MAL’ 


ERR LOC OBJECT CODE 


SPL/3. VERSION 08/2 
TF DO LIME 
3576 TBAT 


07000000 
97010000 
07020000 
07030000 
07040000 
07050000 
07060000 
07070000 
07080000 
07090000 
07100000 
07110000 
07120000 
07130000 
07140000 
07150000 
07160000 
07170000 
07180000 
07190000 
07200000 
07210000 
07220000 
07230000 
07240000 
07250000 
07260000 
07270000 
07280000 
07290000 
07300000 


DATE S1/12/708 


AMISCPR MNSCPR - MAIN STORAGE IPL ~ CC 
ERR LOC OBJECT CODE ADOR STMT SC 


02} 153 RRAKRAKKAAAAKRARAKAAAKAKARAKAAKAAKRARRARRARRARAARRARRAAAKARAARRARRARRARR 
0011 754 DISTKA QU. _DIINDRI+] ADDR OF START OF REG STACK 07550000 0008 808 AL 
D012 755 DISVCIMA EQU DISTKA+T ADDR OF IMMEDIATE SVC TABLE 07560000 0004 809 Al 
03 0013 756 DISUPMIN EQU DISVCIM@+] — MINIMUM NUMBER OF PAGES TO PARTIAL SWAP 07570000 | 03 0007 810 Al 
0014 757 DILATRA _EQU piste AOOR_OF LOAD ATR ROUTINE IN SEGHENT 0 000. 811 AL 
i ILATRE A STA R A 812 * 
001s 759 DISEca eQU DIREGeTR SYSTEN COUNTER TABLE ADDRESS 0 813 * 
OO17_760 DITINALA EQU__DISEC@e]_—_AOOR OF HARDWARE TIMER VALUE 814 * 
815 * 
816 * 
163 RRRRKAKRARRAKRARRAARRARRAARAARAAAAAAARRKAAKAAAAAKAARAARRARRARARARRARRAKRAK 0080 817 Al 
764 * "NON-CONSTANT ° CONTROL STORAGE POINTERS AND WORD 07650000 0040 818 AL 
06) 165 RARRARRKRRAAAAAAKRRAARKAARAAAARRARRAKRARRAKRAAAARAAARAARAKAARARRARRARRAK 07660000 06 0020 819 AD 
0019 766 DIERRMIC EQU  _DISWTCBO+1 JOB. TERMINATION ERROR NESSAGE NUYBER 07670000 820 * 
OOIA 767 DIERRTCB EQU DIERRMIC+1 JOB TERMINATION ERROR TCB ADDRESS 07680000 821 * 
07 0018 768 DIERRACE EQU DIERRTCB+1 JOB TERMINATION ERROR ACE ADDRESS 07690000 | 07 0010 822 Al 
OO1C 769 DISTKPTR EQU DIERRACE+] ADDR OF CURRENT REGISTER STACK ENTRY 07700000 823 * 
770 * 0710000 824 * 
771 * THE FOLLOWING 6 WORDS ARE THE CURRENT LOADER PARM LIST VALUES 0720000 | 08 825 * 
0010 772 OILDSS _EQU__DISTKPTR+1 HIGH AND MIDOLE BYTE OF SS FIELD 0730000 826 ** 
OO1E 773 DILOSN QU DILDSS+1 LOW SS BYTE AND NUMBER OF TEXT SECTORS aa7 * 
OOIF 774 DILDLINK EQU DILOSN+l ——_LINK-EDIT ADDRESS 07750000 | 09 828 ** 
0020 775 DILDSTRT EQU DILDLINK*] START CONTROL ADDRESS 07760000 0026 829 D1 
0021776 DILORTOT EQU DILDSTRT+1 — RLD DISPLACEMENT AND NUPBER OF TOTAL SECS 0770000 830 * 
1 0022 777 DILDLOAD EQU DILORTOT+1 MODULE LOAD ADDRESS 10 0080 831 TR 
78 * 0080 _ 832 Sk 
0023 779 DIACVERA EQU  DILDLOAD+]  A/0 ADDRESS COMPARE VERIFY ADDRESS 07800000 0080 833 TW 
nl 780 * 07810000 | 11 0080 834 LD 
781 RREKKRARKAARRAARARAAARARARAARAAAKAAAKRAKARRRARRARRRARRAARKAAKKAAAARAEAAARRARRK 07820000 0040 835 LO 
782 * TASK DISPATCHER CONTROL WORD (07830000 0020 836 GE 
783 RRAKRAAAARKRAARAAARRAARKAKARAKRRRAAKRARRARAARRARRERAKERRAKARRARARRAKRAKRARRA 07840000 lL 0010 837 GE 
0024 784 DIDSPFLG EQU  DIACVERA+] TASK MANAGEMENT FLAGS. 07850000 0008 838 GE 
785 * HIGH BYTE 07860000 0004 839 EX 
786 * EQ x'80' UNUSED. 07870000 | 1 840 * 
0040 _787 DSPRERST EQU__X'40' TASK REGISTER RESTORE REQUIRED. 07880000 aa * 
0020 788 XAREAREF EQU  X*20" TRANSIENT AREA REFRESHABLE. 07890000 gaz * 
14 0010 789 DSPADACT EQU  X*10' DISABLE TASK DISP, ALTER/DISPLAY ACTIVE. 07900000 | 14 843 * 
0008 790 DSPFCUR EQU  X‘08" FORCE SWAPOUT OF CURRENT TASK. 07910000 844 * 
0004 791 DSPERPND EQ) x"04" DISABLE TASK DISP, MSP ERR PENDING 07920000 845 * 
1 0002 792 DSPHOLD EQU X‘02" TTPORRY (EREST TO SELD DISAAICHUE 07930000 | 15 846 * 


0001 793 DSPEXAN EQU  X‘Ol' EXAM INDICATOR 


x 
2743 * STATI * STAT2 * WASK * WISK2 * 


2744 RARAAARAARARAARARARARARRRARARRERR 


2746 ® = CHPLQ PUSH ® 
2747 RRRRAAKAAAKKRERRARRKRAAKRAKARARRARA 
2748 "10 : 

2749* —— XNTQ RTUB * 


275Q KRRARAARAARRARARARARARRARRARR ARR 


* ® x 
* STAT3 * PRIOR * TTIME * QONT * 
RERRAAAKRKRARAAAKAAKRKRRAARRAEKAARAK 
® ® 
* CHIN * ROY * 
RKRAKKRAAKRAKRRAARARARRAKRAKRARAKR 

® ® 
® CRB ® 


RARRAKRAKRKKRRARAAKRARRAAAKKAARAKK 


033 


AMISCPR MTISCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION PAGE = 18 VO9/11/81 12/08/81 02:16 SASCPR MASCPR - MAIN 


01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
RRRRARRRR 07540000 ENTRY INTO ALTER/DISPLAY. 02 
07550000 R/DISPLAY WAITING. 809 
07560000 0004 809 ADACTIVE EQU ALTER/DISPLAY ACTIVE. 
. SWAP 07570000 000° 810 ADITRMOD EQU A/D IN INSTRUCTION TRACE MODE. 03 
iT 0 07580000 A/D_IN INSTRUCTION STEP MODE. 
F AREA 07590000 
07600000 | 04 CONTROL BITS AND OFFSET INTO SADINIT 04 
07610000 OXREF TABLE THAT HAS DISK ADDRESSES OF 
07620000 A/D TRANSIENTS. 
07630000 05) 
ERRMRRRRR 07640000 0080817 ADSTOPN EQU  X's0‘ LEAVE STOP LATCH ON WHEN EXITING A/D. 
* 07650000 (0040 818 ADSCO960 EQU  X'40° 960 CHARACTER CRT SCREEN 
RRRRARRR 07660000 0020 819 ADRSTONP EQU X'20' ON - RESET START DUMP. aa224 06 
IER 07670000 OFF _- SYSTEM DUP. 
07680000 82 USED IN CONJUNCTION WITH ADSYSOTP. aa224 
07690000 INSTRUCTION STEP BY TASK IS ACTIVE. 0344 07 
rRY 07700000 
07710000 
} 07720000 08 
07730000 $26 RKKRRAAAAARAKRRARRAARKKRARRARRARAARKAAAAARAAARARARAARRARRARARARRAAARAAAAAKKR 
TORS 07740000 827 ® SYSTEM FLAG WORD 
07750000 828 RAARAKRAARAARAARARAKKAARRARARRARRARRARARAARAARARARRAARARARARARAAAKAAAAARARAAKK O9 
07760000 0026 829 DISYSFLG EQU DIADCNTL+] SYSTEM FLAGS. 
AL SECS 07770000 830 * HIGH BYTE 08310000 
07780000 0080 831 TRALOAD EQU X'BO' MS XIENT AREA LOAD IN PROGRESS. 08320000 | 10 
07790000 0080 832 SWAPIO. EQU  X‘8O' SWAP__1/0_IN PROGRESS. 08330000 
107800000 0080 833 TWALOAD EQU X"BO° TASK WORK AREA LOAD IN PROGRESS. 08340000 
07810000 0080 834 LDINPROG EQU X'80' M.S. LOADER ACE IN PROGRESS. 08350000 | 11 
AR ARRARR 07820000 0040 835 LOFCHREQ EQU _X‘40' CURRENT 1. S. LOADER REQ IS A FETCH 08360000 
% 07830000 0020 836 GETPANYP EQU X'20° WS GETP ANY PAGE 08370000 
ARIRRARR 07840000 0010 837 GETPHSIC EQU X‘I0: NS GETP HAVE SWAP-IN-CANDIDATE 12 
07850000 0008 838 GETPNOTC EQU  X‘08° WS GETP NOT COMPLETE 
07860000 0004839 EXT —=EQU OK‘O4" EXAM INDICATOR FOR NS GETP XIENT 6 
07870000 B 
07890000 
07890000 
CT IVE. 07900000 14 
07910000 
7 07920000 
ING 07930000 15} 
07940000 
07950000 
07960000 16 
2 07980000 
TRRRIORR 07990000 00277 $52 DIASRFLG EQU DISYSFLG+1 ASSIGN FLAG 7 
03000000 0080 353 ASGNERR £00 X‘30" PERMANENT ASSIGN FAILURE HAS OCCURRED. 
06010000 
08020000 18 
08030000 
08080000 
08050000 19 
08060000 
PARE 
AG 
THE 02:15 DATE 31/12/08 


0b 


MSCPR MISCPR - MAIN STORE IK -( 
ERR LOC OBJECT CODE MAS 


000 
OOH 
002A be DITPTORL EQU DITPTOXHr] TOK OF FIRST TOE ON QUEDE CLOW.) ws 
08120000 re RAAAARRARAARARAAAAAARARAAARARAAKRAKRARRARAARAKARARARAARAAKAARRARRARAARAAR OM MH 
08130000 866 * ‘CONSTANT’ POINTERS TO MAIN STORAGE ITEMS ® Om 
08140000 867 RRRAAAAAARRARAARAAAAAARARRARRAAAARAERAARAARAARERARRERAARRARAARAARARRARR, 0 OG MI 
08150000 0028 868 DITCBHOR EQU  DITPTOXL+1 —_ ADOR OF MAIN STORAGE TCB QUEUE to) su 
108160000 0020869 DINGATRS EQU DITCBHDR*1  ADOR OF MAIN STORAGE ATR NAP 108700000 Ca 
08170000 | 05 002) 870 DIFREEPT EQU DIMSATRS+1 © ADDR OF MAIN STORAGE FREE AREA 08710000 | 05 MM" 
08180000 002E 871 DIMXNTPT EQU .DIFREEPT+1 — ADOR OF MAIN STORAGE TRANSIENT AREA 08720000 (om 
08190000 002F 872 DIOSTQE EQU DIMXNTPT+1 ADDR OF MAIN STORAGE DISPATCHER TOE 08730000 (oa 
4 08200000 | 06 0030 873 DITRSAVE EQU DIDSTQE+) SVC TRACE ADDRESS SAVE AREA ann 08740000 | 06 OO 1) 
24 08210000 0031874 DIMNTQE EQU  DITRSAVE+1 ADDR OF MAIN STORAGE MIDNIGHT TQE — ##aew 08750000 Oo 
24 08220000 0032 875 DIXNTBL EQU DIMNTQE+] ~~ ADOR OF MAIN STORAGE XIENT TABLE-4 08760000 Oe 
4 08230000 | 07 0033 876 DINXACEA EQU DIXNTBL+1 — ADOR OF MAIN STORAGE XIENT ACE 08770000 | 07 tH 
08240000 0034 877 DIMPIOBA EQU DINXACE@+] —_ ADDR OF MAIN STORAGE MULTI-PURPOSE 108. 08780000 i 
08250000 0034 878 DISWIOBa EQU ~~ DiNPIOBa ADDR OF MAIN STORAGE SWAP 108. 08790000 nm 
08260000 0034 879 DITWIOBa EQU DIMPIOBa ADDR OF MAIN STORAGE TASK WORK AREA [0B. 08800c00 | 08 " 
mK 08270000 0034 880 DIMKIOBa EQU  DIMPIOBa ADOR OF MAIN STG XIENT SCHEDULER 108. 08810000 Oo AMI 
® 08280000 0034 881 DILDIOBa EQU DiMPiORa ADDR OF MAIN STG RELOCATING LOADER [08 08820000 Ms" 
RR 08290000 0035 882 DISWACEA EQU DINPIOBa+] — ADDR OR MAIN STORAGE SWAP ACE. 08830000 j 09 mM 
08300000 0036 883 DIGPFLAG EQU DISWACE@*+] GENERAL POST FLAG WORD 08840000 on) 91 
08310000 864 * HIGH BYTE 08850000 O61 HB 
08320000 | 1 0080 885 ASGNFAIL EQU  X‘80' SQS FAILURE INDICATOR 08860000 | 10 on 
08330000 0040 886 FOFAIL EQU X‘40' DISK ENQUEUE FAILURE INDICATOR 08870000 005} 1 
08340000 0020 887 TASFAIL EQU X‘20° TEST AND SET FAILURE INDICATOR 08880000 Oost 
08350000 | 11) 0010 888 USQSFAIL EQU  X‘10" WSQS FAILURE POST CODE. 08890000 | 11 O05 901 
08360000 889 * EQU. X‘08" UNUSED. 08900000 O05 Wt 
08370000 890 * EW X04" UNUSED. 08910000 M 
08380000 891 * EQU Xx‘02' UNUSED. 03920000 | 12 ih 
08390000 892 * Eq. Xx‘ol' UNUSED. 08930000 ul 
08400000 893 * 08940000 Wi 
08410000 0037 894 DISTKSAV EQU DIGPFLAG+1 © STACK POINTER SAVE AREA 08950000 Oh MID 
08420000 0038 895 DIQHSAVE EQU DISTKSAV+1 SAVE AREA IN QUEUE ROUTINE FOR Q HEADER os) 
08430000 0039 896 DIIPIOBa EQU  DIQHSAVE+1 ADDR OF IPL 10B (VALID DURING IPL) On MHD 
08440000 | 1: 0039 897 DITRACEA EQU DIIPIOBa ADOR OF DISK TRACE ACE CVALID FOR TRACE) 05) i 
08450000 003A 898 DITRIOBa EQU DIIPIOBa+1 
08460000 
08470000 
08480000 
08490000 
09500000 
08510000 
08520000 
08530000 
08540000 
(08550000 
) 09560000 
08570000 
(08580000 
oass0000 
9800000 
08510000 


m5 DATE SL/12/08 


WS 20s] IUOWIDRE CQUTLOWMASKYL —OCLUNU WALT MAK 


~ PRINTER ALLOCATE FAILURE 

COMM. LINE ALLOCATE FAILURE 

+ DISKETTE ALLOCATE FAILURE 

« DISK SPACE ALLOCATION FAILURE 

« OTHER DEVICES ALLOCATION FAILURE 

« ICS TRANSIENT WAITOR 

0002 2839 TCBASRWT EQU  X‘02' « ASSIGN RECOVERY FORCED WAITER 
2840 * EQU. X'‘ol' «RESERVED 


0080 2833 TCBPTRWT EQU X'80' 
0040 2834 TCBLINWT EQU  X'10' 
0020 2835 TCBOKTWT EX = X'20' 
0010 2836 TCBDSKWT EQU  X'10' 
0008 2837 TCBDEWT EQU  X'08' 
0004 2838 TCBICXWT EQU X‘04' 


0004 2842 TCBSTAT3 FQU TCBWMSK2+1 — TCB STATUS BYTE 3 


0080 2844 TCBTERN EQU X'‘80' . TASK IS IN TERMINATION 


035 
31 12/08/81 02:16 MPECPR MMSCPR - MAIN STORAGE IPL ~ COMMAND PROCESSOR FUNCTION 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


08620000 0043 915 DIIARS EQU DISAVEINe] SAVE AREA FOR INPUT TAR VALUE 
08630000 0044 916 DICURTCR EQU _DIIARS*1 __ADOR OF MAIN STORAGE WORKING TCB 
08640000 0045 917 DIXTCBa EQU  DICURTCB+l MS XIENT AREA OUNER. 
08650000 0046 918 DILDACE@ EQU DIXTCBA+1 + ADOR OF ACTIVE I.S. LOADER ACE 
08660000 0047 919 DISWTCBI EQU _DILDACE@+1 __SWAPIN TCB ADDRESS. 
08670000 0048 920 DITWICBa EQU  DISWTCBI*1 TASK WORK AREA TCB ADORESS (SHARED) 
08680000 | 0 0048 921 DILDTCBA EQU DITWTCBA RELOCATING LOADER TCB ADORESS (SHARED) 
08690000 0049 922 DILOGPT EQU DITWICBa+1 —_ADOR OF NEXT TRACE LOG OUT ENTRY 
08700000 OOFF 923 LOGTFULL EQU  X'FF* STORAGE TRACE TABLE FULL 09240000 
08710000 | 05} 924 (HD = X‘FF* TRACE BUFFER IS FULL 
08720000 004A 925 DILOGLIM EQU DILOGPT+1 __ END ADORESS OF TRACE BUFFER 
08730000 0048 926 DICURAGE EQU DILOGLIT1 CURRENT AQE 09270000 
08740000 | 06 004C 927 DIASRTQE EQU DICURAQE+1 ASSIGN RECOVERY TOE ADDRESS. 
08750000 0040 928 DIAQEWRK EQU _DIASRTQE+1 RESOURCE ENQUEUE/DEQUEUE WORK AREA 
O04E 929 DIGSAVE EQU  DIAQEWRK+1 SAVE AREA FOR MAB IN QUEUE ROUTINE 09300006 
07 930 * 09310000 


R 


932 ® ‘NON-CONSTANT' DISK ADDRESS POINTERS 
933 RXRAAAARARARAAARARAARARAAARARAAARARAARARRARERAARRRARARRRRRERRERRARERRRR 
O04F 934 DILOGSSH EQU DIQSAVE+1 SECTOR ADORESS OF TRACE FILE, BUFFER SIZE 
935 * CH) = SECTOR ADDRESS (L) OF TRACE FILE 09360000 
936 * CL) = SIZE OF TRACE BUFFER (ND 


lid LALA 
a AY RE 
PODCAST DYNARNTCALLY 
20 GR ENA SHTSOR. 
Om AT 


UWA TAR BURA TE INTERVAL. 


NANT a 
AONTOUC TURIN, QUEUE, HEADER 
TER CE SICDENIPIOENT. AMAAAAAARAAA AAA 


AOS RY HER 
AUWTTMG TANS RAIMI QUEUE CHATNING FIELD 


ACARITO (SRRSSWT OF GP 
IVRTOO) ILA, RECOVERY. THY PROCESS 


AER TS FR 
i 
EH RE 


Raa 


wen ‘ 
{} sence CRRA RRR RRR RRR 
ee 
WA UGA WE 
HH 
NY N ) AW 
WR) WOK A 
WC UN We 
mT 
WAND OO MATE LIST ALOE 
CO tO 


2 


0050 937 DILOGSS EQU SECTOR ADDRESS OF TRACE FILE CH,tD 
0051 938 DILOGSIZ EQU 
0052 939 DILOGUSD EQU 
0053 940 DICURXNT EQU 


08760000 
08770000 
08780000 
08790000 
08800000 
08810000 
08820000 
08830000 
08840000 
08850000 
08360000 | 10 
08870000 
08880000 
08890000 
8900000 
08910000 
08920000 
08930000 
08940000 
08950000 
08960000 


005A 952 DIPPRPSR EQU  DLIAR+1 


. 005C 954 DIIMLI2 EQ DIAQe) 


9080000 
639090000 
ovrouen | Io 
o9710000 G0) 964 be 

7 O9i20000 ww 0820 5 APIA EQ x20" 
oprja000 | 19 00) 966 HPSS EQ KIO" 
op1anngD oT PMTESY EX OS" 
OoTS000D ee 


0058 953 DIRQ «= EQU(DIPFEPSR+1 


05D 955 DIIML34 EU DIINLI2+1 


TRACE FILE SIZE 


TRACE FILE CURRENT POINTER (OFFSET) 
DISK ADDR OF XIENT CURRENTLY IN [5 AREA 


PRR AND PSR 

R AO Q BYTES 

INLINE PARAPETERS 1 2 
INLINE PARATETERS 3 4 


>>> UMUSFD <ccce 
CR/PCR SANE #EEA. 


POST SK FAO E12 1S IW PEOCESS 
CS SC REQUEST 

{SP 301 BUSY GD TAK AURILABLE) 
"SP UATTING FOR START KEY 


C35 


URAC NETN RREAT F CONTROL STONE * 
t THAR NNER RE RIC RRR ROA ICR RRR RRR 


1G ET CO) OC AOD Ne PONT 
\! 


7 FIER RR ITO ESD WY aE 
W 
HiT i Ta i aia 
A OC EO RO CR SHG 
y 
NTT TTT ae NS 
14 WH UK NDE A AL. Sg 


osssoo00 | 15) 1 1 A RAL « 


09560000 QUT NMI = 9, 18 ae, att 
7 i! 


F cscaauaaenaaneeianeaaammaaag 
: 

AAACGR I A AS 

ry 

a AHURA COMES IT 

y! 


i mremunrrerinieniannnimenicaerery nn torent eore 


Operon | 15 TAR CS ‘ 
oveaon0e {Lh RORIORRRRRMMROAHERNRL 
‘ones0000 iT 

fi 


MUU £007 SOTA CV A MAVEN A. CNS & 


00CO 2886 TCBPRBCH EQU  X‘CO" BATCH PRIORITY 28870000 
2887 * NORMAL (DEFAULT) USER TASK PRIORITY 1S TCBPRCNV DYNAMICALLY 28880000 
2888 _* CHANGED TO/FROM TCBPRGCH BE THE SYSTEM SUPERVISOR. 28590000 
0080 2889 TCBPRUDL EQU “X‘BO" TOW PRIORITY 26900000 
0006 2891 TCBITINE EQU TCBPRIOR+1 TASK RESIDUAL TIME INTERVAL. 28920000 
0007 2893 TCBQCNT EQU TCBITINE+!  QUIESCE COUNTER 28940000 
0009 2894 TCBCMPLQ EQU TCBQCNT+2 —_—TASK EVENT CONTROL QUEUE HEADER 28950000 
2895 "AAAAAAAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AARAAAAAAAARA AARAA 28960000 
000B 2897 TCBPUSH QU TCBCMFLQ+2 PUSH ELEMENT Q-HEADER 28980000 
00D 2898 TCBCHAIN EQU  TCBPUSH+2 SYSTEM EXISTENCE QUEUE CHAINING FIELD "28990000 
D036 
12/08/81 02:16 #NSCPR MISCPR - MAIN STORAGE Pi. - COMMAND PROCESSOR FUNCTIO PASE 21 WOO/1i/81 “12/00/81 02:16 


ERR LOT OBJECT CODE ADOR STMT SOURCE STATEMENT 


09380000 991_* ENTRY POINTS FOR SOUTINES IN THE FIRST SEGREMT OF CONTWL STONGE _ * 


09390000 ‘ a seamen oO awe 


1G OU6B 993 DISET EQU «DIACETOR+] «= SET ACTION CONTROL UDR GUIRY POINT 


WOW EIFS TWN 
0040 2994 TCBAI 
0020 2995 TCBS) 
0010 2996 TCBAE 
0008 2997 TCB2z 
0004 2998 TCBCI 
0004 2999 TCBTL 
0002 3000 TCBHO 
0001 3001 TCBDY 


atc doth A Pact bir hn 
0058 2940 TCBINVCT 

0050 2941 TCBASGNQ EQU TCBINVCT+2 
OOSF 2942 TCREXIT EQU  TCBASGNQ+2 
TCBEXIT 
0067 2944 TCBTQE EQU TCBEXIT+8 TIMER QUEUE ELEMENT. 

0068 2945 TCBSQBCT EQU  TCBTQE+] COUNT OF SECTOR QUEUE REQUESTS 


0080 2947 TCBLCKDI EQU § Xk'80' INTERLOCK FOR DEDICATION 
0040 2948 TCBLCKSI EQU X'40' INTERLOCK FOR SCHEDULER 
0020 2949 TCBLCKVI EQU X‘20' INTERLOCK FOR VTOC 

0010 2950 TCBLCK5! EQU  X'10" INTERLOCK FOR FORMAT 5 
0008 2951 TCBLCKPI EQU X'08' INTERLOCK FOR PROC NANE 
0004 2952 TCBLCKHI EQU X'‘04' INTERLOCK FOR HISTORY FILE 


O06F 3003 TCBST 


0080 3005 TCBTH 


E01 
, #MECPR MMSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTIO PAGE 22 09/11/81 12/08/81 02:16 O1 #MSCPR MSCPR - MAIN STORAGE IPL ~ CO 
1 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SO 
00C3 1077 ER 
OOA0 1078 ER 
0075 1025 DIACCNTL EQU DIACTSKa+1 = A/D ADDRESS COMPARE CONTROL WORD 0080 1079 ER 
1026 * HIGH BYTE 1080 * 
0080 1027 ADCTASK EQU  X‘80' STOP IF TASK ACTIVE 0003 1081 ER 
0040 1028 ADCREAL EQU REAL VERIFY ADDRESS 1082 * 
0020 1029 ADCVERFY EQU VERIFY STOP 4 0004 1083 ER 
0010 1030 ADCMATCH EQU STOP IF DATA MATCHES 0080 1084 ER 
0008 1031 ADCTBN EQU STOP IF BITS ARE ON 0040 1085 ER 
0004 1032 ADCTBF €&QU STOP IF BITS ARE OFF 0020 1086 ER 
ee 0002 1033 ADCFOUND EQU ADDRESS COMPARE FOUND ON IL5 0010 1087 ER 
0001 1034 ALCOMPRQ EQU  X‘Ot" ADDRESS COMPARE DUYP REQUEST OOFO 1088 ER 
1035 * 1089 * 
1036 * EQUATE FOR SETTING OFF THE SOFTWARE ADDRESS COMPARE CONTROL BITS 3 1090 * 
OOFC 1037 ADCRESET EQU ADCTASK+ADCREAL+ADCVERFY+ADCMATCH+ADCTBN+ADCTBF 3 1091 * 
1038 * 1092 * | 
1039 * LOW RYTE TASK ATR ADDRESS OF VERIFY DATA 0007 1093 ER 
1040 * 0006 1094 ER 
1041 RERKRARARARARAAAARAAARAAAAKAAAKKRARRKRARRARRAKRARRRAARAAARKRARARAKKRARRARRAK y 0005 1095 ERI 
1042 * END OF DIRECT AREA ® 0004 1096 ER 
1043 RERKRRAAAAKRARRAKRAARAKRAKKAERAARARRARRARARAERKRKKREKKAKRRARKAKRARAKRAAKAA 0003 1097 ERI 
0076 1044 DIENDA = EQU DIACCNTL+] LABEL FOR NEXT AVAILABLE WORD IN DRCT1 1098 * 
1045 **® END OF EXPANSION ** 10460000 1099 * 
1046 ® ECM 10470000 1100 * 
10 0000 1047 ECMPARN EQU 0 PARM BYTE OFFSET 10480000 |10 OOOF 1101 ERE 
0080 1048 ECMNSKIP EQU  X'80° DO NOT SKIP ON PULT. WAIT INDICATOR 1102 * 
0040 1049 ECMREAL EQU X‘40° DATA ADDRESS IN 108 IS REAL INDICATOR 0005 1103 ER 
WW 0020 1050 ECNTTC = EQ xX'20° TASK-TASK CORPUNICATIONS INDICATOR 0080 1104 ERt 
0021 1051 ECHIOERR EQU  X'21° 1/0 ERROR INDICATOR 0040 1105 ERI 
0022 1052 ECMINQ EQ X‘22° INQUIRY INDICATOR 1106 * 
2 0023 1053 ECR «EQ X‘23° J30BQ DETACH INDICATOR 0020 1107 ERt 
0024 1054 ECQVIPER EQU X‘24° TIMER ECM INDICATOR O10 1108 ERt 
0025 1055 EQMCPOCL cQU  X‘25‘ OCL COMAND INDICATOR 1109 * 7 
0026 1056 ECMTAS §EQU  X‘26" TEST AND SET INDICATOR 1110 * 
0027 1057 EQESB EQUOX‘Z7° CSB TRANSFER INDICATOR un * 
0028 1058 EQSYSLG EQU x‘23° SYSLOG INDICATOR niz *4 
1 0001 1059 EOWWSK EU 1 ECT - EVENT CONTROL MASK OFFSET 0008 1113 ER 
0080 1060 ECMACTV EQN X‘a0" - EVENT ACTIVE 0008 1114 ER 
0040 1061 EXPL Qs x‘40° - ECB COMPLETE 15 * 7 
7 1082 * tw x20" . RESERED 16 *¢ 
OO10 1063 EQUOCK EQ Xx"10" - WOK BIT 0003 1117 ERE 
1064 * mw x0" * 00G2 1118 ER 
6 1065 * wu Ko * CONPLETION CODE OUO1 1119 Em 
1066 * ou xw * tla * 
WO67 * aw xo * nz * 
i O03 1S EOE 3 On ~ GOWRARL UIT MRK FIELD nw*t 
0080 106) FREEET GU "SO" - 00 80) PREENPT BIT O01 1173 Em 
Ce a: ee . LO GRE BREST tiaa * 
1g wn Fb OF ESN 113 * 
wiz * os Tia * 8 
Ol 1073 ERB fg CoN FIELD O001 1127 Ge 
19 wa * Tis * 
OR? 107 CR EQ OCH Liz * 
oD CREDISE to" (0006 1130 GR 
me 
pice 
[SRLS WERSTDN GB /2B ASD Pat 7] TIME O25 WE B1/12708 | (SPL WERSIOW @B/26780 
Ol] iF we ‘Soura: Ot) FR Le 


‘P GET SPA FOR A Ge CONE. BOK. 


a3 CT MHL BE USE BY SPDR, ie 
0S GEER, WA HISTORY OVERELB INIT EAL IZATION RUT IES . | SES SESTEN TOM 
; be, acre aiaeiae wee ein eimeaiaes OL E9000 FP SE Bh TL 
Wa2 *! DORI, 3 a 


29410000 COR 298 TUBATION CU AW ATTALA TES 


2920000 16 0020 2995 TCRSYSTN EQU ‘20° SYSTEN TASK ~ NOT SUSPENDABLE 
29430000 S_IN ABNORMAL TERMINATION 
9440000 SI’ TERMINATION D 
29450000 0004 2098 TCBCNLPD EQU K"04 CANCEL PENDING 
29460000 0004 2999 TCBTWACL EQU  X'04" C.P. CALLED FOR TWA RECOVERY 
29470000 0002 3000 TCBHONPT EQU = X'02" ERROR ON DUMP - PARTIAL DUMP TAKEN 
29430000 {18} 0001 3001 TCBOMPPO EQU  X'O1" OUMP PENDING ON CANCEL 
29490000 
39500000 OO6F 3003 TCBSTATS EQU TCBSTAT4+1 STATUS BYTE 5 
29510000 19 
29520000 0080 3005 TCBTHBIT EQU  X'80' TASK HAS BEEN IN TERMINATION 
95 30000 0040 3006 TCBCNZPD EQU X‘40' 2 OPTION CANCEL PENDI 
00 
E02 
PAE VO9/11/81 12/08/81 02:16 #SCPR MMSCPR - MA 
‘NT ERR LOC OBJECT CoD 
SS 10250000 OOAO 1078 ERBDISK EQU  X‘A0' OISK; DEVICE 1D - _ 12/6/79 RJB 10790000 
IRD 10260000 0080 1079 ERBPLCA EQU X'80' DEVICE ID ADDED FOR MLCA 10800000 
10270000 {0 1080 * 10810000 | 03} 
10280000 0003 1081 ERBOQHO EQU  ERBDDVI+1 Q HEADER DISPLACEMENT 10820000 
10290000 1082 * 10830000 
10300000 |04 0004 1083 ERBDCTL EQU ERBDQHD+] ERP CONTROL 10840000 | 04 
10310000 0080 1084 ERBBUSY EQU  X‘80' THE ERB IS IN USE, AWAITING MS ACTION 10850000 
10320000 0040 1085 ERBCOONE EQU X'40' C.S. ROUTER OPERATION COPLETED 10860000 
10330000 |0 0020 1086 ERBDONE EQU X'‘'20' "1.5. ERB OPERATION HAS BEEN COMPLETED 10870000 | 05) 
10340000 0010 1087 ERBERR2 EQU  X'10' READY RESPONSE WAS A 2ND ERROR 10880000 
3 10350000 OOFO 1088 ERBMCTLM EQU X'FO' MASK TO SET OFF ZONE BITS TO CHECK FUNC. 10890000 
10360000 |06 1089 * THE LOWER 4 BITS OF THIS BYTE ARE ENCODED WITH THE FUNCTION TO BE 10900000 | 06 
OL BITS 3 10370000 1090 * PERFORMED. CURRENTLY THE X‘08' BIT IS NOT BEING USED. HOWEVER IT 10910000 
Ter 3 10380000 1091 * IS RESERVED FOR USE AS PART OF THE FUNCTION ENCODING SCHEME IF WE 10920000 
10390000 07, 1092 ® NEED TO ADD MORE THAN 2 FUNCTIONS TO THE EXISTING SET. 10930000 | 07; 
TA 10400000 0007 1093 ERBMMIC EQU 7 GET ERROR MIC # 10940000 
10410000 0006 1094 ERBMERCY EQU 6 PERFORM ERROR RECOVERY 10950000 
III III II 10420000 |08 0005 1095 ERBMSG EQU 5 ISSUE MESSAGE 10960000 | 08 
* 10430000 0004 1096 ERBMNRR EQU 4 WAIT FOR NOT-READY TO READY OR MSG RESPNSE 10970000 
RRRRRRRRRRRR 10440000 0003 1097 ERBMPUR EQU 3 PURGE MESSAGE 10980000 
IN DRCT1 10450000 |09 1098 * EQ 2 UNUSED 10990000 j 09 
10460000 1099 * Ew 1 UNUSED 11000000 
10470000 1100 * EU 0 INVALID FUNCTION (DO NOT USE) 11010000 
10480000 }10) OOOF 1101 ERBMERR EQU xX‘OF' ERR IN PROCESS IF ANY BIT ON 11020000 | 10 
CATOR 10490000 1102 * 11030000 
DICATOR 10500000 0005 1103 ERBOFLG EQU  ERBDCTL+1 FLAG 11040000 
ATOR 10510000 {11 0080 1104 ERBTRMID EQU xX'‘80° PLACE TERMINAL ID IN THE MESSAGE 11050000 | 11) 
10520000 0040 1105 ERBMERRC EQU  X'40° PLACE 4 BYTE ERROR CODE IN THE LAST FOUR 11060000 
10530000 1106 * POSITIONS OF THE TEXT MESSAGE 11070000 
10540000 }12 0020 1107 ERBMNRSP EQU = X‘20° NO RESPONSE REQUIRED FOR INFO MESSAGE 11030000 | 12] 
10550000 0010 1108 ERBMNLOG EQU § X‘10° 00 NOT ATTEMPT TO LOG THIS ERROR 11090000 
10560000 1109 * NOTE: IF ANY DEVICE TIRES A DEVICE DEPENDENT BIT IN THIS FLAG 11100000 
10570000 |13} 1110 ® BYTE, PLEASE ASSIGN YOUR BITS STARTING WITH X‘01' AND WORK 
10580000 
10590000 1112 * WORKSTATION ERROR RECOVERY 
T 0600000 }14 0008 1113 ERBMPOST EQU = X‘08" TUB POSTED COMPLETE WITH ERROR (CP ONLYD 14 
10610000 0004 1114 ERBMIRCY EQU X‘04" THIS ERB IS IN RETRY MODE 
10620000 1115 * THE FOLLOWING TWD BITS (X°02* AND X‘O1" ARE ENCODED TO DEFINE 3 ERROR 11160000 
10630000 }15} 1116 * CONDITIONS. THE 4TH CONDITION IS UNUSED. 11170000 | 15 
10640000 0003 1117 ERBARERR EQU 3 RESOURCES UNAVAILABLE 11190000 
10650000 0002 1118 ERBMHERR EQU 2 HARDUARE 11190000 
30660000 116 0001 1119 ERBRPERR EQU 1 PROGRATTIING ERROR 11200000 | 16 
10670000 1120 * ew oO UMISED 11210000 
10680000 Vizi * 11220000 
10690000 }17; 1122 * DISK , DISKETTE , AND 1255 ERROR RECOVERY 1izen00 | 1 
10700000 0001 1123 ERBPTASK EQU X‘D1" POST TASK HAVING 1/0 ERROR TO CALL THE 11240000 
10710000 liza * 1/0 ERROR TRANSIENT BACK INTO STORAGE. 11750000 
10720000 115 11g * 1izsoo00 | 1S 
10730000 1126 * NLCA ERROR RECOVERY 11770000 
10740000 0001 1127 ERBCELOG QU X"D1" IF GW LOG TO CE TRACE AREA Tizg0000 
10750000 [19 1123 * IF OFF LOG TO USER TRACE AREA tiz9o00 | 19 
10760000 1iz9 * 11300000 
FY) 10770000 0006 1130 ERBDCPA —QU = ERBSDFLG+1 CP aD OLD EQUATE VALUED 11330000 
70 rt 
po? 


SPL/3 «= VERSION 08/28/80 
Ol] IF DD LIME ‘SOURCE 
B55) GOMCTITLE “NAN STORAGE [PL - SWART FILLE REBUILD, @MEBLD"D, 


000 336 7 FILE REBUT, BLD, 1S COMSTDERED AS PART OF IPL, BUT RUNS AS */ OISEIIOD 
no 3) SEPARATE TK AD WOT OMEER THE CONN PRGCESSOR 46 PL WOES. “7 OiSz00N0 
0m 3aaB* */ C3900 
00 3m SYSTEM COWWACHATION AREA FLAG “SOMEBLD’ IW BYTE “SORGYSI" 1S */ OL3MImOD 
BD 

00 *) BI36o0GO 
aac BQ of */ DISTRO 


3B3 /* SAGBLD WILL RUN AS A DEDICOTED ASK, THEREFORE WD J0BS DAN BE =| */ DISBOODD 


2900000 | 1 007A 3049 TCBUAFLG EQU TCBSUSPS+1 USWA INITIALIZATION STATUS. 30500000 | 1 
HOST * SEE TOS FORD COTTE TORURFLED FOR BIT DEFINITIONS UTTHIN' TOBURFLC. 


OO7C 3053 TCBSMFPT EQU  TCBWAFLG+2 SIF POINTER 
3054 * THE FOLLOWING EQUATE IS USED TO SET ON THE X‘80' BIT IN THE HIGH 
3055 * BYTE OF THE SMF POINTER FIELD. CURRENTLY THIS FIELD IS USED AS 
3056_* A SWAP-IN COUNTER INSTEAD OF AN ADDRESS FIELD. 


0080 3057 TCBSMFDN EQU  X‘80' SMF HAS PROCESSED THIS TCB 
3058 * 


007D 3060 TCBX  EQU TCBSMFPT+1 = AMOUNT OF TASK SWAPPED OUT 


£03 
23 VOO/11/81 12/08/81 02:16 SCPR MMSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION PAGE 24 WO9/11/61 12/08/81 02:16 glee 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 

10780000 | 0 0006 1131 ERBDERA EQU  ERBOCPA ERROR AID BYTE  CNEW EQUATE VALUE) 11320000 | 02 

B 10790000 0001 1132 ERBIOER EQU  X‘O1' 1/0 ERROR HAS OCCURED 11330000 
10800000 0000 1133 ERBNORN EQU x‘d0" NORMAL ER AID BYTE VALUE 11340000 
10810000 | 03 1134 8 11350000 | 03 
10820000 0008 1135 ERBOMIC EQU ERBOCPA+2 —_MIC_ NUMBER 11360000 
10830000 1136 * 11370000 
10840000 | 04 0009 1137 ERBDOPT EQU ERBOMIC+] MIC OPTIONS 11380000 | 04 

TION 10850000 OOFO 1138 ERBSOPD EQU  X'FO' ‘D' OPTION WAS TAKEN TO MESSAGE 11390000 
10860000 0080 1139 ERBSOPO EQU  x‘A0" OPTION 0 WAS SELECTED 11400000 

ETED 10870000 | 0 0040 1140 ERBSOP1 EQU X'40" OPTION 1 WAS SELECTED 11410000 | 05 
10880000 0020 1141 ERBSOP2 EQU X'20' OPTION 2 WAS SELECTED 11420000 

FUNC. 10890000 0010 1142 ERBSOP3 EQU™ X10" OPTION 3 WAS SELECTED 11430000 

TO BI 10900000 | 06) 0008 1143 ERBAOPO EQU X'‘08' OPTION 0 IS ALLOWED 11440000 | 06 

RIT 10910000 0004 1144 ERBAOP] EQU  X'04' OPTION 1 IS ALLOWED 11450000 

Tf We 10920000 0002 1145 ERBAOP2 EQU  X‘02" OPTION 2 TS ALLOWED 11460000 
10930000 | 07 0001 1146 ERBAOP3 EQU X'O1' OPTION 3 IS ALLOWED ‘ 11470000 | 07; 
10940000 1147 * 11480000 
10950000 OOOA 1148 ERBDLNT EQU  ERBDOPT+1 LENGTH OF WS TUB ERB 11490000 
10960000 | 08 1149 * 11500000 | 08 

G RESPNSE 10970000 000B 1150 ERBDACE EQU ERBDOPT+2 —_ACE ADDRESS 11510000 
10980000 O00C 1151 ERBOLEN EQU  ERBDACE+] LENGTH OF ERB 11520000 
10990000 | 09 1152 **® END OF EXPANSION ** 11530000 | 09 
11000000 1153 * FLEQU 11540000 
11010000 
11020000 10 1155 RERKKRAKRARKARAKRAKRAARAKRARRARRKAEAARRAAKAAARAARAARAAKRARKRARKRRAAAARAARAK 11560000 10 
11030000 1156 * ig 11570000 
11040000 1157 * DISK FORMAT-1 x 11580000 
11050000 | 11 1158 * ® 11590000 | 11 

ST FOUR 11060000 L159 *XRARAARAAAAARARAARARAAARAARRARAARRARRARRARRARAAARARA ARE RAEAAARRARER ARR 11600000 
11070000 

SAGE 11080000 | 12 0000 1161 FIADDFLG EQU 0 LATEST DATE INDICATOR 11620000 | 12 
11090000 OSC 1162 FIAMLTST EQU C'S FILE HAS LATEST DATE FOR THIS LABEL 11630000 

FLAG 11100000 

WORK 11110000 | 13) 0008 1164 FIADLABL EQU FIADOFLG*8 FILE LABEL 11650000 
11120000 0001 1165 FIAMSYSF EQU X‘Ol" “SYSTEM FILES" MUST HAVE A LABEL WHICH 11660000 

7e 11130000 T166 ® BEGINS WITH X01" 11670000 

P ONLY) 11140000 | 14 
11150000 0008 1168 FIADDATE EQU  FIADLABL+3 CREATION DATE 11690000 

E 3 ERROR 11160000 
11170000 0008 1170 FIADSDIR EQU  FIADDATE LIBRARY ~ START OF DIRECTORY u7yoa0 | 15 
11180000 
11190000 OOOC 1172 FIADTYPE EQU  FIADOATE*1 FILE TYPE 11730000 
11200000 | 16 0080 1173 FLAMINDX EQU  X"30" BIT ON = FILE 11740000 | 16 
11210000 0040 1174 FIAMCONS EQU X"40" BIT ON = CONSECUTIVE FILE 11750000 | | 
11220000 0020 1175 FIAPDIRC EQ X‘20" BIT ON = DIRECT FILE 11760000 
11222900 | 17) 0010 1176 FLAPROFL EQ X"10" BIT ON = I] UNIT, BIT OFF = F1 UNIT 1i7re000 | 17) 

L THE 11240000 0008 1177 FLAMPERM EQU BIT ON = PERTWENT FILE (‘P") 

RAGE 11250000 BIT ON = TEMPORARY FILE (‘T") 
11260000 | 1 BIT ON = JOB FILE CJ") g 
11270000 BIT ON = SCRATCH FILE (°S") 
1280000 
11290000 | 19 
11300000 

E) 11310000 


THE 02:15 DATE $1/12/08 


3103 * ATTRO * RFSS ® REN ® RFCSS * RFOSP * = TUBCMSK ... * 
3104 RRRRARARRARRRARARARARARRANARRARARRRRRRRARRRA RARER ARERR ARERR 
105 * 50 cb 53% 54%55 * 56 57 ® 
3106 * CMSK * FMSK *  DEXTA ® ATTRA * MSGID * TUBDMATX ® 
3107 RRRRRARARRAREARARREARARRERARARARRRRERRRERR RARER IRIE ARRR 31090000 
108 * 58 * 59 5SA* 5B ® oF * 31090000 
3109 * ATTRB * TUBDGTUB * ATTRC * RESERVED ¥ 


BZL1D RAARAAARRARAARAAARARAARARAAARRARARRARAARAARRARAR AAR RRA RARER 


VO9/11/81 12/08/81 02:16 SMSCPR AMSCPR - MAIN STORAE 


ERR LOC OBJECT CODE A 


11320000 1185 ® THE FOLLOWING FOUR BIT MASKS ARE VALID ONLY IF ‘FIAMINDX' IS ON * 
1 1330000 1 18% RARRAARAKRAARRAAKAARARRAARAKARAKRARKAAAARAKRARRAKRARARAKARKAAAAKKRAAKRAKAAK KK 
11340000 
11350000 0080 1188 FIAYSORT EQU X'80' BIT ON = SORT KEYS 
11360000 0040. 1189 FIANMRGE EQU X'40' BIT ON = MERGE KEYS 
11370000 0010 1190 FIAMDPCK EQU  X"10° BIT ON = UNORDERED LOAD 
11380000 | 04 191 ® (CHECK DUPLICATE KEYS) 
11390000 0008 1192 FIAYKNFG EQU  X‘08' BIT ON = INVALID INDEX 
71400000 1193 * CKEYSORT MAYBE IN PROCESS) 
11410000 
Nn 420000 1195 RAREAAARRARARARAKARAARAARKKAAKRAKRARRAARAAARAKRARRARKRARARRARAAARAAKRARAARARK 
11430000 1196 * THE FOLLOWING BIT MASKS FOR X°BO° ARE VALID OMY IF ‘FIAMINOX’ IS * 
11440000 1197 * OFF k 
ll 450000 1198 RARAKRKRARRARAARAAKRAARARRARRARLARARRARARAAARAARRAAKRAARARKRAAAKARAAAAAKRARRARRK 
11460000 
11470000 0080 1200 FIAMSCYD EQU  X‘80' SECTOR MODE LIBRARIAN FILE 
11480000 1201 * CIF 'FIAMLBFL' IS OND o 
11490000 0080 1202 FIAYSCLB EQU  X‘80" SECURE LIBRARY 
11500000 | 08 1203 * CIF FIADRECL = X‘0000') o 
11510000 é 
11520000 0020 1205 FIAMNEW EQU X'20" BIT ON = NEW FILE 0 
11530000 0004 1206 FIAMSPAl EQU X'04' SPINDLE Al REQUESTED ORIGINALLY 00 
11540000 0002 1207 FIAMSPAZ EQU  X'02' SPINDLE A2 REQUESTED ORIGINALLY 
mR 11560000 1209 ® IF BOTH OF THE PREVIOUS TWO BITS ARE OFF, THEN NO ORIGINAL SPINDLE 
® 11570000 1210 * PREFERENCE WAS SPECIFIED 00 
® 11580000 
* 11590000 0001 1212 FIALBFL EQU  X'O1" BIT ON = LIBRARIAN FILE 
hia 11600000 
OOOF 1214 FIADRECL EQU  FIADSFLG+2 RECORD LENGTH 
11620000 
11630000 0010 1216 FIADHIGH EQU FIADRECL+1 HIGH ORDER BYTE OF BLOCKS/RECORDS FIELD 
0080 1217 FIAMBLRN EQ) X*80° BIT ON = FILE ALLOCATED WITH BLOCKS, 
11650000 1218 * BIT OFF = FILE ALLOCATED WITH RECORDS 
11660000 0012 1219 FIADBLKN EQU FIADRECL+3 BLOCKS USED TO ALLOCATE THE FILE a 
11670000 0012 1220 FIADRECN EQU  FIADRECL*3 RECORDS USED TO ALLOCATE THE FILE 
| 00 
11690000 0011 1222 FIADLBOU EQU FIADRECL+2 LIBRARY ~ OWNER QUEUE POINTER 0 
11710000 0012 1224 FIADLBUS EQU FIADLBOWel «= LI. - COUNT OF CURRENT USERS fet 
11730000 ‘0015 1226 FIADLSTR EQU FIADRECN+3 RELATIVE RECORD MUPBER OF NEXT RECORD wo 
11740000 0 
11750000 0015 1228 FIADSMEN EQU  FLADLSTR LISRARY ~ START OF MEMBERS 12290000 wo 
11760000 6 
11770000 0015 1230 FIAGRFST EQU  FIADLSTR START SSS OF RESERVED AREA FREE SPACE 17310000 
11790000 Zi * G BYTES) 17370000 o 
el remen oeces sree 
1is00000 | 13 0013 1233 FIADSTOA EQ «FIADLSTR+3 SSS OF START OF DATA 17340000 a 
11810000 
0018 1235 FIADEMOA EQ FIADSTOA+3 SSS GF EMD OF EXTENT 17360000 0 
11930000 
OO1D 12737 FLADVTOC EQ) FIADEND2 RELATIVE S/D OF IOC ENTRY 17380000 o 
ae 71850000 G 


- */ DI 


LIME 
pe 
BH 
3% /* 2. TD SPOOL WRITER */ G20 
Be 
eR OP OME: «NDE REGISTERS 1 & 2 WILL BE DESRDYED IF OP-ED ROUTER! COO 


1 
i 
1 
a 
1 
q 
1 
1 


0020 3181 TU 
0010 3182 TU 
0008 3183 TU 


O0EO 3191 TUB 
00CO 3192 TUE 
00C1_ 3193 TUE 
00C2 3194 TUB 


E05 
81 12/08/81 02:16 MMSCPR #MSCPR ~ MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION PAGE 26 09/11/81 12/08/81 02:16 01 MSCPR MMSCPR - MAIN STORAGE IPL - 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT 
1291 
1241 * RE-DEFINITION OF ‘FIADVTOC' FOR RELEASE 8 0023 1293 | 
11890000 1242 * 1294 | 
11900000 1243 * BYTE 0 1 1295 | 
11910000 0080 1296 | 
11920000 | U4 1245 * BIT 1012345671012345671 4 0040 1297 | 
11930000 1246 * 0020 1298 | 
11940000 0010 1299 | 
0008 1300 | 
11960000 
11970000 1250 *SECTOR NUMBER = HT YYYYYYYY 0025 1302 | 
11990000 0027 1303 | 
11990000 1252 * WHERE ‘XXX" IS DEFINED BELOW: 
1253 * WH 0027 1305 | 
12010000 w 1306 | 
12020000 0010 1255 FIAWIST EQU B‘00010000' FIRST FORMAT-1 IN SECTOR aa419 
12030000 1256 * 1308 ' 
12040000 | Od 0020 1257 FIAMVZND EQU B'00100000' SECOND FORMAT-1 IN SECTOR aa419 : 1309 ’ 
0030 1258 -1AMN3RD_EQU 8'00110000' THIRD FORMAT-1 IN SECTOR aa419 1310 ? 
12060000 0040 1259 FIAW4TH EQU 8°01000000° “FOURTH FORMAT-1 IN SECTOR aasi9 1311 
12070000 0070 1260 FIAMVALL EQU 8B‘01110000' CLEARS OFFSET aang 1312 ? 
12080000 1313 
1314 
12100000 1315 * 
12110000 OOLE 1262 FIALIVIA EQU  FIADVTOC+1 — LENGTH OF THE FIRST VTOC AREA 
1317 f 
12130000 
002A 1319 f 
12150000 
OO2E 1321 F 
12170000 
12180000 0031 1323 f 
12190000 
12200000 0035 1325 f 
12210000 
4 0020 1273 FIADATT1 EQU FIADFCHN+] ATTRIBUTE BYTE ONE % 0039 1327 f 
12230000 0080 1274 FIAKTND EQU  X‘80" 
0012 1329 f 
12750000 
G31 a 
2770000 un 1332 * 
pola FILE OPENED AS OUTPUT OR ADD 6 1333 * 
12790000 SIT GN = KEY SUCKET NAS BEEN PRITED 1334 * 
SIT ON = INDEXED PORTION OF Fl HAS BEEN 1335 * 
12310000 FREED BY ALLOCATE 13% * 
12320000 BIT GN = HIGH EEY mur mee 
D3B 1338 F 
17340000 
0030 1340 Ff 


17360000 Saar Lat Fa row SIT GH = INALDD OFA EA OOH 1341 F 
ia * CORLID DN THE WTOC) y 
17330000 OO TAT Ew KW perl ti ih Il 
_ 


a 
a 
a 
a 
a 
1 
4 


Pa > = TE 2-15 


DL“SOWUORD) THEN /*ORLL SRBBL OR WG? */ 2S 


7 985, OALL DRL ROUTE */ DGD 


VEN Fhe Cw Sev o Frew ree we Ie FEN Te Be ee 


0010 3182 TUBSVH =EQU X‘10° . TUB NOT ALLOWED OFF VERTICAL TUBCHAIN 
0008 3183 TUBONL EQU X‘08' « DEVICE ONLINE 

0004 3184 TUBRIISU EQU K'04' «READ INPUT ISSUED TO TUB 

0002 3185 TUBRINCN EQU  X'02' . READ INPUT NOT COMPLETE 

0001 3186 TUBSDTCS EQU § X°O1' » DATA IN CONTROL STORE 


0003 3188 TUBCIIND “EQU = TUBFLAG+1 10B COMMAND BYTE 


00CO 3190 TUBSDA EQU X'CO' . LOCAL WORKSTATION DEVICE ADDRESS 
OOEO 3191 TUBSPNAV EQU = X°EO' + NATIVE PRINTER DEVICE ADDRESS 
OOCO 3192 TUBSEXEC EQU x‘CO' . EXEC 1/0 OPERATION CODE 

00C1_ 3193 TUBSPOLL EQU X'C1' «EXEC INVITE OPERATION 

0OC2 3194 TUBSIOLE EQU  X°C2' 


s STATEMENT 
0 1291 * VALID IN THE VTOC) 12920000 | 02 
0023 1293 FIADATT2 EQU FIADATTR+] ATTRIBUTE BYTE TWO - THIS BYTE IS 12940000 
03 1294 * SUPPORTED IN BOTH THE AFA AND THE VTOC 12950000 | 03 
1295 ® EXCEPT FOR A LIBRARY FORMAT-1 12960000 
0080 1296 FIAMSCFL EQU Xx‘80° SECURE FILE 12970000 
Of 0040 1297 FIAMCKPT EQU  X'40' CHECKPOINT ACTIVE FILE 12980000 } 04 
0020 1298 FIAMDLTC EQU X'20' DELETE CAPABLE FILE 12990000 
0010 1299 FIAMIFIL EQU  X"10" TMEDIATE ACCESS FILE CIFILE) 13000000 
05 0008 1300 FIAMGASK EQU  X‘08' IFILE GAPS ADDED SINCE LAST KEYSORT 13010000 | 05 
0025 1302 FIADOWNR EQU FIADATT2+2 OWNER QUEUE POINTER 13030000 
06 0027 1303 FIADEDFQ EQU FIADOWNR+2 © EDF QUEUE POINTER 13040000 } 06 
0027 1305 FIADRFED EQU  FIADEDFQ END SSS OF RESERVED AREA FREE SPACE 13060000 
07 1306 * (3 BYTES) 13070000 | 07 
1308 RRRATAARRAARARARARRAAAAKARARRARRAARRARARARARAAARARAAARAARRARAARARRKARARKAR, 13090000 
03 1309 * ® 13100000 | Od 
1310 * ‘THE FOLLOWING FIELDS ARE ONLY SUPPORTED FOR INDEXED FILES id 13110000 
111 * x 13120000 
09 1312 ®% NOTE: THIS AREA MUST BEGIN ON AN 8 BYTE BOUNDARY BECAUSE IT [S * 13159000 | 09 
1313 * FREED BY ALLOCATE FOR NON-INDEXED FILES id 13140000 
1314 * x 13150000 
0028 1317 FIADKEYL EQU FIADEDFQ+1 KEY LENGTH 13180000 
1 1 
002A 1319 FIADKEYO EQU FIADKEYL+2 —_KEY LOCATION 13200000 
2 OO2E 1321 FIADLSTK EQU FIADKEYO+4 © SSS/D OF NEXT KEY 13220000 j 12 
0031 1323 FIADSTIX EQU  FIADLSTK+3 | SSS OF START OF INDEX 13240000 
0035 1325 FLADLSTP EQU FIADSTIX¢4 —SSS/D OF LAST PRIPE KEY 13260000 
14 0039 1327 FIADHOKY EQU FIADLSTP+4 © SSS/D OF HIGHEST KEY IN OVERFLOU AREA 13280000 | 1 
0012 1329 FIAL2VTA EQU  FIADHOKY-FIADEDFQ LENGTH OF THE SSOUMD VTOC AREA 13300000 | | 
1331 13320000 
1332 x x 3730 
6 1333 * THE FOLUQMING FIELDS ASE ONLY SUPPORTED IN THE AFA FORRAT-1—* 13340000 | 16 
13347 FOR INDEXED FILES * 13350000 
35 * * 13360000 
ii +55. Meieciapininieniainiaianieminnisins PUR Orit RS rah tine scot WORK ICR ORE RRR RRO ie OT PE RD 13370000 T 
OO38 1333 FIMO) EQU FIAGHIKY:2 KEY SUCKET PODER (3390000 
0030 1340 FLAUPORQ EQ FIAUKEKT+2 FILE POSITION CONTROL BLOLK POONER 13430000 
C8 1G FILL H@ E LETH GF A FORAT-1 FOR CONRELOTIVE AD 1390000 


75 = TENE 2-15 
bt 
RCRD; 7" RESET 0B | aT CED 


OF R2SDROPSDORSONELIS) TREN /* AD SUITIORED? RAS) CD 


SSCS), 7 ES, COMME THK AE aT CORO 


MNSCPR MMSCPR - MAIN STORAGE IPL 


ERR LOC OBJECT CODE ADDR STI 


cm es colts wi wiles w wales 
sles eu tales fy tural B 


137 


nym hintasbecaiena tac trates 


36 * ~~ QUO" [SCREEN FORMAT ERRORS 
3237 * EQ x'40" "NO RESPONSE TIME OUT 


3238 * EQU_ X'20' « TRANSMIT ACTIVITY CHECK 32390000 

3239 * EQU  X'10' + ACTIVATE COMMAND FAILURE 32400000 

3240 * EQ X'08' « RECEIVE PARITY CHECK 32410000 17 3294 * GR 
3241 * EQU X‘04' « RECEIVE LENGTH CHECK 32420000 3295_* 


3242 * FQU X‘02° ~ NOT USED 32430000 
3243 * FQU X'Ol' . EVEN/ODD TIME OUT 32440000 [18 3297 * 
0002 3298 TUBS 


OOOC 3245 TUBSENS2 EQU TUBSENSI+1 SENSE BYTE 2 a 5 
x 
3247 _* EQU X'80' . DEVICE HUNG BUSY 32480000 0005 3301, TUBS! 
3248 * EQU X*‘40' . LINE PARITY CHECK 32490000 


81 12/08/81 02:16 MNSCPR MNSCPR ~ MAIN STORAGE IPL ~ CC 


ERR LOC OBJECT CODE ADDR STMT SC 


12920000 DIRECT FILES (40) 0008 1398 Q 
000A 1399 O 
12940000 0040 1346 FIALLGIN EQU  FIADRES3+1 — LENGTH OF AN F1 FOR INDEXED FILES (64) 13470000 1400 * 
12950000 | 03} 0 1401 * 
12960000 0020 1348 FIALLGLB EQU FIADFCHN¢] LENGTH OF A LIBRARY FORMAT-1 (32) 13490000 1402 * 
12970000 1403 * 
12980000 04 1350 RARARAKRARARARAARAARAARARAARAARRAKRARAAAAARARRAARARKARARAARARKAARAAAKARARRARKKK 13510000 04 1404 ® 
12990000 1351 RRARKRKARARARRAARARRRARAARAAKAAAARARRARAARRARARAARARRARARRAAAAAARRARARRARARAARK 13520000 1405 n 
13000000 1352 ** THE FOLLOWING LABELS ARE USED BY SPACK TO INDICATE THAT A SYSTEM ** 13530000 0018 1406 QF 
13010000 | 05} 1353 ** FAILURE OR PERMANENT I/O ERROR OCCURRED BEFORE $PACK HAD COMP- = ** 13540000 JO OO1A 1407 QH 
1354 *® LETELY MOVED THE FILE, WHERE PART OF THE FILE MAY HAVE BEEN an 13550000 001C 1408 GH 
13030000 1355 ** OVERLAYED DURING THE MOVE OPERATION. ae 13560000 OO1E 1409 GH 
13040000 | 06 1356 ** ae 13570000 06 0020 1410 QH 
1357 ** TE SPACK IS ABLE TO MOVE THE FILE SUCCESSFULLY, THESE FIELDS ARE ** 13580000 0022 1411 GH 
13060000 1358 ** SET TO ZERO. mR 13590000 0024-1412 GH 
13070000 | 07] 1359 ®* ax 13600000 0026 1413 GH 
1360 ** THE VALUES STORED IN THIS AREA ALLOW SPACK TO RESTART WITHOUT == ** 13610000 0028 1414 CH 
13090000 1361 ** LOSING ANY DATA IF THE ABOVE ERRORCS) SHOULD OCCUR DURING Re 13620000 002A 1415 OH 
13100000 | 038) 1362 ** EXECUTION. nn 13630000 /08} 002C 1416 QH 
13110000 1363 RARAKRAAAAKAARARAAARRARKRARARAAARARAARAKRARRARRARAAARARAARARARRARARRARAARARRERK, 13640000 002E 1417 QH 
13130000 | 09 0032 1419 QH 
13140000 OO1E 1366 FIFLAG EQU FIADVTOC+1 —_1~-BYTE FLAG INDICATING THAT RESTART OF 0034 1420 OH 
13150000 1367 * SPACK IS REQUIRED FOR THIS FILE. 0036 1421 QH 
13160000 | 10 OOFF 1368 FIRESTRT EQU X‘FF* SWITCH VALUE THAT IS PLACED IN FIFLAG 13690000 0038 1422 QH 
1369 * IF RESTART IS NECESSARY. 13700000 1423 * 
73180000 0021 1370 FISSTRT EQU FIFLAG3 POINTS TO START SSS OF DATA THAT HAS BEEN 13710000 
11 1371 * MOVED BY SPACK. 13720000 
13200000 0027 1372 FISSEND EQU FLADEDFQ POINTS TO END SSS OF DATA THAT HAS BEEN 13730000 
B73 * POVED BY SPACK. 13740000 
13220000 | 12 
1375 *** END OF EXPANSION ** 13760000 
13240000 1376 * HEADR 13770000 
y 0000 1377 QHMULL EQU x‘00" MULL QUEUE HEADER VALUE 13780000 
13260000 0001 1378 @UHI Eq X‘01' HIGH VALUE FOR QUEUE HEADER ADDRESS 13790000 
0020 1379 DEQUEUE <Q X°20° DEGUENE REQUEST 13800000 
13280000 } 1 0000 1380 QUEUE «= EQU.sX"00" QUEUE REQUEST 13810000 
0080 1381 PRIOR EW X‘80' fVSK FOR PRIORITY QUEUEING 13820000 
13300000 0040 1382 SYS a xa SYSTEM QUEUE HEADER REQUEST 13830000 
5 0010 1383 LIFO «= ECX*10" TUSK FOR LIFO QUEUEING 13840000 415 
13320000 0000 1384 FIFO =f x‘00" fOSK FOR FIFO QUEUEIE 13850000 
13330000 0090 1385 PRIGRK «=EQU «PRIORLIFO © fASK FOR LIFO PRIORITY QEIEIG 13860000 
13340000 | 16 0080 1386 PRIORNF EQU PRIOR-FIFO © ASK FOR FIFO PRIORITY QELEDE 13870000 [16 
13350000 aT * 13890000 
13360000 1388 ** THE FOLLOMING QUEUE HEADERS ABE OFFSETS FRE! LOCATION x°0100° 13890000 
13370000 | 1 1389 ** IN PRIN STORE. THE QUEUE HEADERS HAVE VARIOUS FUNCTIONS 13900000 
1390 ** DEPENDENT ON THEIR USERS REQUIREFENTS. AOR USER OF THESE QUEUE 13910000 
1 ** READERS MST ALSO OE MIME THAT CONTE STORE FY ALSO ACCESS 13920000 


[S/S WeRSION O72a/RD a al DATE Si/12/08 SPL/3 VERSION GB/ZB/B0 
Ol | (URE Qouncr Ol] iF BO ur 

OD (0 SATLENE-15 CTL "OE RLS 7 GRO E 9 GACT “eso 
fou Ent mn DUDA MED), SP KC RRL i 


bg 
3 
3 
3 
H 3 
1 3 
4] 3 
3 
3 
3 
4 


du i Ml VIN le 


64) 


RRAARRK 
RARKRAK 


TEM *® 


bn RR 


S BEEN 


ed K*02" ~ INVALID BYTE COUNT CO OR 4096) 
EQ x'03" ~ DEVICE ADORESS NOT FOUND 
sat EU "04" ~_BYTE COUNT °= ACTUALLY TRANSFERED 


3294 *® GROUP 3 ~ RESOURCES TEMPORARILY NOT AVAILABLE ERRORS 
3295 _* (REFERENCE TUBSENSO BIT2 ) 0 


3297 * EQ Xx‘0l' « PRINTER BUSY DURING WRITE ATTEMPT 
0002 3298 TUBSDEAD EQU X'‘02' ._WS_IN ERROR MODE 


3299 * . DEVICE OFFLINE ERROR 
3300 * « PRINTER NEEDS INITIALIZATION 
0005 3301 TUBSNRMD EQU X‘05' -_NOT READY DUE TO OPERATOR ERROR MODE 
OR SYS REQ MODE 


oio 


MASCPR MISCPR - MAIN STI 


ERR LOC OBJECT CODE 


0008 1398 QHOCOMY EQU xX'08' COMMUNICATIONS I0CH 02 
000A 1399 QHDIOXNT EQU  X‘OA' 1/0 XIENT AREA CACE) 14000000 
1400 * EW x‘oc’ RESERVED 14010000 
1401 * EQU X‘OE' | 14020000 | 03) 
1402 * EQU_X‘l0' l 14030000 
1403 * EQ “x‘12" 1 14040000 
1404 * EU x'14" | 14050000 | 04 
1405 * EQ X'16' | 14060000 
0018 1406 QHOCKNT EQU  X‘18" CONTROL STORAGE XIENT SCHEDULER CACED 14070000 
OO1A 1407 QHOTWA «EQU X'‘IA’ TASK WORK AREA ACCESS CACE) 14080000 | 0 
OO1C 1408 QHDLOAD EQU X'IC' M.S. RELOCATING LOADER CACE) 14090000 
OO1E 1409 QHOKBTR EQU XIE" KEYBOARD TRACE CACED 14100000 
0020 1410 QHOPT! EQU Xx‘20° PRINTER QUEUE HEADER 1 (ACE) 14110000 | 06 
0022 1411 QHOPT2. EQU X‘22' PRINTER QUEUE HEADER 2 (ACE) 14120000 
0024 1412 QHDPTS EQU X‘24" PRINTER QUEUE HEADER 3 CACED 14130000 
0026 1413 QHOPT4 EQU X'26' PRINTER QUEUE HEADER 4 CACED 14140000 | 07 
0028 1414 QHDPTS EQU  X'28' PRINTER QUEUE HEADER 5 CACE) 14150000 
OO2A 1415 GHOPTS EQU  X‘2A" PRINTER QUEUE HEADER 6 (ACE) 14160000 
0O2C 1416 QHOPT? §~EQU X'2C' PRINTER QUEUE HEADER 7 CACE) 14170000 | 08 
OO2E 1417 QHOPTS EQU X'ZE" PRINTER QUEUE HEADER 8 CACE) 14180000 
0030 1418 QHDFDA EQU  X'30° SPINDLE A QUEUE HEADER (ACE) 14190000 
0032 1419 QHOFDB QU X'32" SPINDLE B QUEUE HEADER CACE) 14200000 | 09 
0034 1420 QHDFDC =EQU X'34" 171 SPINDLE C QUEUE HEADER 14210000 
(0036 1421 QHOFDO EQU  x‘36° 171 SPINDLE 0 QUEUE HEADER 14220000 
0038 1422 QHOIOA =EQU X'38" DISKETTE ACTIVE QUEUE (ACE) 14230000 | 10 
1423 * EQ X'3A' RESERVED 14240000 
| 
aT , 
En | 
ae ee 
ae eae | 


DOB 
L/S CERSIDN OB/2B/BD Pe 18 THE 2-15 
Ol) OF WO LINE ‘SBORDE 
a0 GEMCTUMLE “SSUPR - PRECESS FOR AENOTE WINK STATIONS); [3B7OIOO 
1 | —  - *7 GOOD 
tp eq Fi iaiateeeiaiaiaiiaeatataiainiaiataiataidiaiaiataiaiediataiaitaiininiatetinieniniaisinitiateniiiininininunie a)... :.'.3) 


*/ G3900000 
ir 


eS 


i 
: 
i 
3 
: 
3 


3345 * 
3346 * SEE THE ERBDCTL FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 
3347 * 


0017 3349 TUBERBFG EQU  TUBERPCT+1 ERB FLAG BYTE 


3351 * 
3352 * SEE THE ERBDFLG FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 
3353 *® 


ERROR AID FLAG BYTE 
ERP MESSAGE ID CODE 


0018 3355 TUBERAID EQU  TUBERBFG+] 
OOIA 3356 TUBMIC EQU TUBERAID+2 


09/11/81 12/08/81 02:16 
ERR LOC OBJECT CODE Al 


CE) 13990000 | 02 003C 1425 QHOTIMER EQU  X'3C' INTERVAL TIMER TQE QUEUE 02 
CE) 14000000 3E_1426 QHOTINEA EQU X'3E' INTERVAL TIMER ACE QUEUE 
14010000 CURRI ? 
14020000 | 03} ENT EQU X'42' MAIN STORAGE TRANSIENT SCHEDULER (TCB) 14290000 | 03) 
14030000 TQ EQ X'44' TCB PRIORITY QUEUE ¢TCB) 14300000 
14040000 0046 1430 QHOTCBQ EQU X'46' TCB READY QUEUE ¢TCB) 14310000 
14050000 0048 1431 QHOTTC = EQU X'48' TASK-TASK COM CACED 14320000 | 04 
14060000 004A 1432 QHDSQE FQU X'4A' STATUS QUEUE HEADER (PL > 14330000 
ED 14070000 OO4C 1433 GHOCMLG EQU X'4C' CONSOLE SYSLOG CPL > 14340000 
"ED 14080000 OO4E 1434 QHOCILK EQU X'4E' CONSOLE SYSLOG INTERLOCK CAQED 14350000 | 05 
E) 14090000 0050 1435 QHOTRM EQU X'50' TERMINATION/RELEASE (PL_) 14360000 
“ED 14100000 0052 1436 QHORFILK EQU = X‘52' REJECT FILE INTERLOCK CARED 14370000 
“ED 14110000 0054 1437 QHOCPOCL EQU = Xx'54' OCL COMMAND REQUESTS (PL ) 14380000 | 06 a 
“E) 14120000 0056 1438 QHOSQB EQUX'56' SECTOR QUEUE BLOCKS (508) 14390000 
ED 14130000 0058 1439 GHDCSCQ EQU X'58' CONTROL STORE COMPLETE QUEUE CALE) 14400000 a 
“E) 14140000 | 07 005A 1440 QHOTUB EGU X‘5A' TERMINAL UNIT BLOCK QUEUE (TUB) (TUB) 14410000 | 07 
“E) 14150000 OO5C 1441 QHOCOM EQU  x‘SC' COMMUNICATIONS LINE 1 (ACE) 14420000 o 
FD 14160000 OO5E 1442 QHOCOM2 EQU  X'SE' COMMUNICATIONS LINE 2 CACED 14430000 
ED 14170000 0060 1443 QHDCON3 EQU X‘60' COMMUNICATIONS LINE 3 (ACE) 14440000 | 08) oC 
E) 14180000 0062 1444 QHOCOMe EQU X‘62' COMMUNICATIONS LINE 4 (ACE 14450000 
E) 14190000 0064 1445 QHODILK EQU X‘64‘ DEDICATION INTERLOCK CARED 14460000 00 
E) 14200000 0066 1446 QHDSILK EQU X‘66° SCHEDULER — INTERLOCK CARED 14470000 | OY 0 
14210000 0068 1447 QHOVILK EQU  X‘68" Toc INTERLOCK CARED 14480000 
14220000 OOGA 1448 QHDSILK EQU X‘6A' FORMAT FIVE INTERLOCK CAQED 14490000 
ED 14230000 | 1 OO6C 1449 QHDPILK EQU X‘6C’ PROC NAME — INTERLOCK CARED 14500000 | 10 
14240000 QO6E 1450 QHDHIST EQU X‘6E' HISTORY FILE INTERLOCK CARED 14510000 00 
0070 1451 QHDSQSPT EQU = x‘70' ASSIGNED PAGES QUEUE HEADER CAPE) 14520000 00 
ll 0072 1452 QHOCSB. «EQ X'72' COPPEINICATIONS SPECIFICATION QUEUE (CSB) 14530000 | 1 00 
0074 1453 QHDERB EQ X'74° ERROR RECORDING BLOCK QUEUE HEADER — CERB) 14540000 00 
0076 1454 QHGW «= EQ COX''76° GENERAL WAIT QUEUE HEADER (ACE) 14550000 
0078 1455 QHDSEC EQ X‘78* SECURITY QUEUE HEADER (PLD 14560000 d| 00 
LOCATION OF NODE DICTIONARY 
00 
1 o 
00 
1 A 
_ 1462 * EQ X's RESERVED 14630000 00 
0090 1463 QHDINGEX EQU = X‘90° INQUIRY EXIT QUEUE ACE) 14640000 
0092 1464 QHDQUAIL EQU = X‘92° QUEUED ACQUIRE INTERFACE LIST (PL > 14650000 | 15) 00 
0094 1465 GORPT EQ x"94" REMOTE PRINTER QUEUE (ACE) 14660000 
0096 1466 QHOSCT EQ X'S" SUBSYSTEN CONFIGURATION TABLE (PL) 14670000 
i 0096 1467 GDF EW x"98" TVA EXTENSION Fl CHAIN i) 14680000 6 
OOSA 1468 GHDEXTRA EQU = X“9A" EXTENDED TRACE (PL) 14690000 
GOST 1469 QHDSUBCN EQ = xX“SC* SUBCONSOLE SYSLOG @L)> 14700000 
1 OOSE 1470 GHDSUBRA EQU = X°SE* SRCOBOLE REASSIGH @L> 14710000 | 1 
GORD 1471 GREIS EW x" ERROR INFORMATION BLOCK (E18) L4T20000 
OOR2 1472 GDNSACE EW X“A2“ WS GT PAGE ACE (aE) 14730000 
OM NB GRAF EU Kat 
Lt 
@ 
oo 


O22 DATE BL/12/08 


afrs et pif es nape cs etfs Spee 
afas ko pulko fo rufa rs rales & 


h D> 
# 2 a 
| 22 

Ba 
| 32 
1 3 2 
1 37 
|B: 
1 3 2 
} 3 2 
1 3 2 

2 > 


0 09/11/81 12/08/81 02:16 


PL) 


0010 3398 TUBSGN €QU X‘10° « TERMINAL SIGNED ON 

0008 3399 TUBTSRQ EQU X'08' «TEST REQUEST MODE 

0004 3400 TUBSTPJ EQU = X*04" + JOB INITIATION NOT ALLOWED 
0002 3401 TUBLIOFR EQ  X'02" + WSWA FORMATTED WITH LIO DISPLAY 


0001 3402 TUBFCNSL EQU X'O1' « CONSOLE MODE FORCED BY 1/0 ERROR 
0036 3404 TUBATTR2 EQU TUBATTRI+1 — TERMINAL MODE AND DISPLAY 


01 


02 


02 1479.®  --=- THRU ---- 
1480_* EQU_X'BE' RESERVED 14810000 
1481 *** END OF EXPANSION ** 14820000 
03 1482 * ICSCA 14830000 | 03 
1483 RAARAAKRKAKARARAARAKRAKRAAARAARAAAARARAKRARAAAKAARAAARAAARAAKARAAKAERRAARARRK 14840000 
1484 * ® 14850000 
1485 * ICF ® 14860000 | 04 
1486 * ® 14870000 
CONMUNICATION AREA 
05} 
1489 RARRRAKRRARKARAAAARKAAAAKAAAKRAAARARAARARAAKRRARAARRARARAKRAARAAARARARAAAAARRARK 
06) 0000 1491 ICADSYS EQU 0 . BEGINNING OF ICF COMti AREA 06 
1492 * 14930000 
(0001 1493 ICADLSUB EQU ICADSYS*1 2 LAST SUB ID USED 14940000 
07 1494.8 14950000 | 07 
0002 1495 ICAD#2KP EQU _ICADLSUB+] 1 __ SIZE OF ICF CQS IN 2K PAGES 14960000 
1496 * 14970000 
0004 1497 ICADSSQS EQU ICAD*2KP+2 2 ADDR OF SSQS QUEUE HEADER 14980000 | 08} 
1498 * 14990000 
0005 1499 ICADCMTR EQU ICADSSGS*1 1  ICF TRACE INDICATOR 15000000 
0080 1500 ICAMLOTR EQU X'‘80' LINE 0 TRACE ON CINTRAD 15010000 | 09 
1501 * —QUx‘40" RESERVED 15020000 
1502 * EW Xx'20° RESERVED 15030000 
1 1503 * EqU X‘10" RESERVED 15040000 | 10 
0008 1504 ICAML4TR EQU X'08' LINE 4 TRACE ON 15050000 
(0004 1505 ICAML3TR EQU  x‘04" LINE 3 TRACE ON 15060000 
11 0002 1506 ICAML2TR EQU  X‘02° LINE 2 TRACE ON 15070000 | 11 
0001 1507 ICAMLITR EQ x‘01‘ LINE_1 TRACE ON 15080000 
1508 * 15090000 
1 0008 1509 ICADTRSV EQU ICADCHTR+3 3 RESERVED FOR ICF TRACE 15100000 | 1. 
1510 * 15110000 
OO0A 1511 ICAD3270 EQU ICADTRSV+2 2 ADDRESS OF 3270 CONTROL BLOCK 15120000 
1 0001 1512 ICAN3Z70 EQ xX‘O1" . FIELD INTERLOCK 15130000 | 1 
1513 * 15140000 
OO0C 1514 ICADOOO] EQ ICAD3270*2 2 CONSTANT X‘0001' 15150000 
14 1515 * 15160000 | 14 
QO0E 1516 ICADTRAG EQU ICADOODi+2 2 ADDRESS OF ICFON TRACE ROUTINE 15170000 
1517 * 15180000 
OOOF 1518 ICADTRST EQU ICADTRAd*+1 ©. START OF ICFON TRACE ROUTINE 15190000 | 15 
1519 * NOTE: THE FOLLOWING AREA IS THE ICFDN TRACE SUBROUTINE WHEN 15200000 
1520 * TRACE [S MOT ACTIVE. ITS FUNCTION IS TO ADD 1 TO THE ARR j 15210000 
1 1521 * 70 SKIP OVER PARN BYTE) AND RETURN TO CALLER. 15220000 | 16 
* L 1, XR2.xR2 "2 —> W5PL 3 15240000 
1524 * A = TCRD0001(.1.ARR = ENCREENT ARR - SKIP OVER PART 3 15750000 | 1 
1535 * ST __{CADTRRTC,XR1),AMR_ STORE RETURN 3 15260000 
1526 * CL WTC XRZ).7R1 ml —> 3 15Z70000 
‘ 15a * 8 SETURN TO CALLER 4 rszao00 | 19 
ODIE 1523 ICADTRRT EQU  ICADTRST+16-1 16 fD OF ICFON TRACE ROUTINE iszs0000 | 
1529 * 15300000 
15330000 | 19 


OG2A 1530 TCADICSY EQU «ICADIPRT+12 «12 «RESERVED FOR [OFDM TRACE 
J 


1531 15320000 
OO20 1532 ICMIKTCS EU «ICADICSHe2 «= 2 TCE AOR OF CF TRAIERT OER 15330000 
r§ 


Did 


MMSCPR MNSCPR - MAIN S 
ERR LOC OBJECT CODE 


0039 3448 TUBATTRS EQU  TUBATTR4+1 


QO3A_3459 TUBATTRG EQU  TUBATTRS+] 


RELEASE INDICATORS 


TO RELEASE 


1 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


0020 1534 ICADXFLG EQU  ICADXTCB+) 
0080 1535 ICAMXBSY EQ X'‘80' 
0040 1536 ICAMXWTR EQU  X'40' 
0020 1537 ICAMXWTA EQU X'20‘ 
1538 *® EQ X‘l0' 
1539 * EQ Xx‘08' 
1540 * EQU X'04' 
1541 * EQ xX‘02' 
1542 * EW X‘ol' 
1543 * 
OO2F 1544 ICADICDE EQU —ICADXFLG+2 
1545 * 
0030 1546 ICADSIFG EQU  ICADICDE+] 
0080 1547 ICANSDAT EQU  X'80' 


1 FLAG BYTE 
ICF TRANSIENT AREA BUSY 
WAIT ON ICF TRANSIENT WAIT REQUEST 
WAIT ON_ICF TRANSIENT AREA 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 


2 STORAGE ADORESS OF #ICDE 


1__FLAG BYTE FOR SYSTEM INTERCONNECT 
*  SDOM IS BEING ATTACHED 


1548 * BITS 1-7 RESERVED CUREENTLY 


1549 * 

0032 1550 ICADSISC EQU  ICADSIFG+2 
1551 * 

0034 1552 ICADSIST EQU  ICADSISC+2 
1553 * 


003F 1554 ICADRESV EQU  ICADSIST+11 


1555 * 

0040 1556 ICAMLENG EQU  ICADRESV+1 
1557 * 
1558 _*** END OF EXPANSION ** 


0000 1567 JCBDINIT EQU 0 
0080 1568 JCBMNTRA EQU = X‘80" 


0002 1576 JORMILDS EQU  X“02" 
0001 1577 SCRMLDJ EQU  X*01" 


0001 1579 KBDINT2 EQN JCBDINIT+1 
0080 1580 JOWNREGN EQU = X°30° 
0000 1581 XBRL EU X40" 
0030 1582 Kerirr EQU  X"30" 
0620 1533 KEVOPR EQ x‘20" 


2 SOOM USER COUNT 

2 SOOM TCB ADDRESS 

11 RESERVED 

. LENGTH OF ICF COMM AREA 


INITIATOR SWITCH BYTE 

IN INTRA MODE CLOAD STATEMENT RECEIVED) 
PROGRAT RUNNING (BETWEEN RUN STATEMENT AND 
TERRINATIOND 

IN INTER MODE CBETUEEN TERMINATION AND 


Pa 81 TIME 02:15 


@MSCPR MNSCPR - MAIN STORAG 


ERR LOC OBJECT CODE 


sisssissei ssi s is 


SSSBSSISSRBIB BSBBSSBSi8S Sssisssisssi ssisssis siss isa 


0080 3505 TUBBADGE EQU  X"80' + THIS TUB HAS BADGE SECURITY 

0040 3506 TUB960 EQU X'40' » THIS TUB IS FOR A 960 CHAR SCREEN 
0020 3507 TUBMENU2 EQU X'20' « DISPLAY PAGE 2 OF MENU ON 960 
0010 3508 TUBMRTSC EQU X'10' + MRT SECURITY SWITCH 

0008 3509 TUBSVRD EQU X'08' + REJECT IN READY FUNCTION 


0004 3510 TUBSVER] EQU X'04' + ERROR DURING SAVE - STATUS OR CNSL SYSLG | 
0002 3511 TUBSVER2 EQU  X‘02' + ERROR DURING SAVE - SYS REQ OR INQUIRY | 
0001 3512 TUBRDYPD EQU X‘Ol' » READY TASK IS PENDING 


REJECT FILE INDEX 3 | 


2 WO9/11/81 12/08/81 02:16 MYSCPR MISCPR - MAIN S 


ERR LOC OBJECT CODE 


15340000 0004 1587 JCBMUSLB EQU X'04' PROGRAM CJCBDPROG) WAS FOUND IN USER 
15350000 1588 * LIBRARY CJCBDCRLB> 
15360000 0002 1589 JCBMRSNP EQU  xXx‘02" ENQUEUE RESOURCES WITH NEP ATTRIBUTE 
15370000 0001 1590 JCBMNRTP EQU  X'‘Ol1' NRT PROGRAM 
15380000 
15390000 0002 1592 JCBOSCH1 EQU JCBDINT2+1 | SCHEDULER BYTE ONE 
15400000 | 04 0080 1593 JCBMPUCL EQU X'‘80' PROGRAM HAS UTILITY CONTROL STATEMENTS 
15410000 0040 1594 JCBMKREF EQU X'40' RUN OXREF AT TERMINATION 
15420000 0020 1595 JCBMRTWA EQU  X'‘20' FIRST SYSIN RECORD IS IN TWA 
15430000 0010 1596 JCBMFLUC EQU  X'10' FLUSH UTILITY CONTROL STATEMENTS 
15440000 0008 1597 JCBYDEAD EQU  X‘08' PROGRAM IS DEDICATED 
75450000 0004 1598 JCBAWTCD EQU X'04' DMY DATE - WORLD TRADE 
15460000 0002 1599 JCBMDOMD EQU X02" MDY DATE ~ DOMESTIC 
CT 15470000 0001 1600 JCBMYMDD EQU X‘O1' YO DATE - INTERNATIONAL 
15480000 
15490090 0003 1602 JCBDSCH2 EQU JCBDSCH1+1 SCHEDULER BYTE TWO 
15500000 0080 1603 JCBMOPCL EQU  X‘a0' OPEN OR CLOSE ERROR 
15510000 0040 1604 JCBMPRTY EQU X'40' PRTY COMMAND EXECUTED PRIOR TO START OF 
15520000 | 08 1605 * 08 
15530000 0020 1606 JCBMPNEP EQU X'20' PROGRAM IS A NEP 
15540000 0010 1607 JCBMBTCH EQU X'‘10' JOB QUEUE PROGRAM 
15550000 0008 1608 JCBMICRC EQU X'08' INCLUDE STATEMENT RECEIVED 
15560000 0004 1609 JCBMDPRD EQU  X'04' ALLOCATE - DON'T PREPARE THE DISKETTE 
15570000 0002 1610 JCBMINGP EQU = X‘02' INQUIRY LATCH SET 
15580000 0001 1611 JCBMNONI EQU X‘Ol' NON-INQUIRABLE PROGRAM 
15590000 
15600000 0004 1613 JCBDSCH3 EQU JCBOSCH2+1 © SCHEDULER BYTE THREE 
0080 1614 JCBMSEOJ EQU X‘80' SYSLOG - SUPPRESS 2 OPTION HALT 
csseiccsisios 15620000 0040 1615 JCBMSOFF EQU  X°40° SYSLIST OFF SELECTED BY HALT OPTION 
® 15630000 0020 1616 JCBMSPRT EQU = X‘20° SYSLIST PRINTER SELECTED BY HALT OPTION 
= 15640000 0010 1617 JCBAREST EQU = X‘10° RESERVE STATEMENT RECEIVED THIS JOB 
* 15650000 0008 1618 JCBMSCRT EQU  X‘08' SYSLIST CRT SELECTED BY HALT OPTION 
RARRERR 15660000 0004 1619 JCBMEGPP EQU X‘04" END OF OUTER-NOST PROCEDURE 
0002 1620 JCBARING EQU = X‘02' INQUIRY JCB 
15680000 0001 1621 JCBMDSRC EQ X‘Ol‘ TERMINATION - DISPLAY RETURN CODE 16220000 
i |) ee ne) 
ENT AND ys7oo000 | 14 0005 1623 JCBDINLK EQU JCBOSCH3+1 SCHEDULER INTERLOCK BYTE 16240000 
15710000 0080 1624 JCRGLOG EQU  X‘80" SYSLOG TRANSIENT CALLED 16250000 
TH] 15720000 0040 1625 JCRPSYSN EQU  X"40° SYSIN TRANSIENT CALLED 16260000 
15730000 0020 1626 JCEDKAL EQU = X‘20" DISKETTE FILE ALLOCATED, BUT NOT CLOSED 16270000 
15740000 0010 1627 JCOROW EQU  X‘10° DISKETTE WTOC ON DISK 
15750000 0008 1628 JORROW QU X‘08" DISKETTE VIOC UPOATED 
15760000 0004 1629 JOMRCS EQU  xX"O4" RESUME - CALL (In 
15770000 0002 1630 JONGELT EU X‘d2" A@UTO-LOADER DISKETTE SELECTED 
15780000 0001 1631 JCBPRSET EU X‘01" RESET STATEPENT RECEIVED 
19800000 0006 1633 JCRDUPS] EQU = SCSDIMLK+! = UPSI SIMTCH BYTE 
15310000 0080 1634 JORIS! EW = x‘S0* UPS! SATOH OE 
15820000 a 0040 1635 KOUPS2 Ew x"40" GSI SUITOH Tw 
15830000 020 1636 SOAPS3 EW x‘20° ‘UPS SUITCH THREE 
15880000 OOlO 1637 SOAPS4 EQN X"10° UPSI SWITCH FOR 000 
15350000 003 1638 KEPSS EQ x03" WPS] SUTTON FIVE 16390000 
153380000 O04 1639 SOUPSS EQ Ox“O4" @S1 SUITOH SIK 19400000 
TS870000 Oot? 160) SPS? BW x"a?* WPS! SATOH SEVEN ‘ee10000 


DIZ 


TENE @2:15 DATE S1/12/08 i PAGE $2 «= TINE G25 
(570000 


3556 *® €@x'0l' RESERVED an OR 3? TENT EQUTIRN2 REMOTE WORKSTATION TUB ADDRESS CPRINTERS) 
0053 3557 TUBDEXTA EQU TUBFISK+2 © REMOTE UAKSTAION TH (RST) (RTS THEY EQ TRPETGNL RESERVED BYTE 
3558 * NOTE: THE ABOVE EQUATE 1S THE DISH SITIO TA Pitt OU 9 TIPO EIR A4 FOS NUMBER 
509 * TO THE RWS TUB. SEE PRINTER EQWTES Fk Te RINE CXC RPA EQ) TIAN FORNS LENGTH (LIMES/PAGED 
3560 * TUB'S POINTER TO THE RWS Tlk, (QD POL EQ) TIPRALASL CURRENT LIE 
0054 3561 TUBATTRA EQU  TUBDEXTa+1 ATTRIBUTE SITE 0 OW 2 MRP EQ) TIPCRLAL A PRINT POSITION HORIZONTAL) 
BCLRA « CLEAR AIDS yr OW 13 MAST ERD TIRNPPA1 PRINTER STATIS 
0040 3563 TUBSLOCK EQU X*40' = LOCK COM, y OOK) KM PH EQ) 80" « POST USER ON ERROR MESSAGE 
0020 3564 TUBMOFF EQU  X'20' «OFF OCL SINT RENE) OOM 5 TORT EQ) f'0! «PRINTER PAST READY 
0010 3565 TUBMHOLD EQU § X'‘10' OW) MG TNEXTD QU X20" » THIS PRINTER TUB HAS A ADDITION 
3566 * NOTE THAT IF THIS BIT 1 i: » RESERVED 
3567 * UT _TADICATES TE OMP ARETE Mit UO RESERVED 
0008 3568 TUBSUBCN EQU  X'08' « SUBCONSILE WRSTATIO i WY EXT RESERVED 


¥09/11/81 12/08/81 02:16 


15880000 0001 1641 JCBMUPS8 EQU X‘O1' UPS! SICH EIGHT (OA LS JOHMEN EQ) ODURZL#2 RELATIVE SS OF MENU ESSAGE PERBER 
15890000 (UA ACUMEN EQ) CBIMEW+2_ HEM LIGRARY FORYAT-1 ADDRESS 
15900000 0009 1643 JCBDDATE EQU JCBDUPSI+3 © SESSION INE 
15910000 
O00C 1645 JCBDPDAT EQU  JCBODATE+3 ——PROGRA INTE 
15930000 (OR TNO JCOLIPG E00 JCDUBEDA]—LINES/PAGE 
15940000 | 04 QOOE 1647 JCBDSLST EQU JCBDPDAT+2 © SYSLIST INICATOR - PIER 
15950000 0000 1648 JCBSLOFF EQU _X‘0000' X ‘0000! = (FF (OAT ORIN EQ) RDLNPG#4 FOR MINER Tnosteen 
15960000 EEEE 1649 JCBSLCRT EQU X‘EEEE' X “EEE! = OT 
15970000 j (QM) TT JOOSLLC EQ) JCRDFRND] —SYSLIST CRT LINE COUNTER 17050000 
15980000 0010 1651 JCBOCRLB EQU  JCBDSLST+2 CURRENT LIBANY Fl MNT 
15990000 0012 1652 JCBOFSBL EQU JCBDCRLB+2 LIBRARY FY CHIN PINTER OME TO CONTE EQU SCBDSLLC#1 —MOYRER OF FORNATS FOUND 
16000000 
16010000 0014 1654 JCBDFSBF EQU  JCBDFSBL+2 FILE FSS CHIN MINER (OA) INS CON EQ) JCOKFTF#2 ADDRESS OF FORYAT INDEX trepen0o 
16030000 0016 1656 JCBOWSBP EQU JCBDFSBF+2 © WSB CHAIN POINTER (ORD ITD CROCTEG EQ) JCQFING+2 ADORE OF COXPILER INFORIATION BLOCK 
16040000 
16050000 0018 1658 JCBDPSBP EQU JCBOWSBP+2 — PSB CHIN MINTER (UST COTA EQ ROCTBR+2 ADDRESS OF FIRST OTF CHAIN 
16060000 | 08 i 
16070000 0020 1660 JCBDIPRC EQU JCBDPSBP+S —_ NAVE OF FIRST LEVEL PROOR (ORS ITN JOMSLLR EQ) JCODOTFO#L —SYSLIST CRT LINES REQUESTED 
16080000 1661 * CEPR PROCEDURE NE IF I WA 
16100000 
16110000 0028 1664 JCBDPROG EQU JCBDIPRC+8  — PROGWINE (U5 TH CONRG EQ) SCROFRGeL REGION SIZE (208) 
16120000 
0029 1666 JCBOSTAT EQU JCBOPROG+] = STANIS INTE ‘aon (OE 17) HOPE EU. JOQOBRG#? MENU FORYAT INDEX (NOMRELEASED WS 08S) 
16140000 0080 1667 JCBMLPNT EQU = X‘80' GATING FOR PRUTER a) (OH 121 COONST EQ) JCROUBRS+3 JOB QUEUE 208 START TINE (J08Q 08S) 
16150000 0040 1668 JCRALIN EQU xX‘'40‘ (RATTLE FOR COPCATION LE ann (OSC 12 OSPIO EQ) SCROUQST#2 SESSION PRINTER ID (RELEASED US 4085) 
16160000 0020 1669 JCRYMOKT EQU  X'‘20' VAITING FR OLGETTE va 
16170000 0010 1670 JCARMDSK EQU = X‘10" VARETING FOR DISK SE ) (61 174 CONN EQ) JCROENE#3 JOB WANE (TIPE STAKE) 
16180000 0008 1671 JCOMWINT EQU xX‘08" AEPMT TIATORGAITING FO RESINS 
16190000 0004 1672 JCOMPK EQ X‘04" UAALTING FOR A ART OVER AUT Se) (OD 126 CROSS EQ) CROUORNH] SCHEDULER BYTE FIVE 
16200000 0002 1673 JCHISLOP EQ = _X‘02° HALT PEOIMG TO STEN OR rr) OA TTD OLA EQ GOSS LANGUAGE CUNPILER BYTE 
16210000 , 0001 1674 JCBFEXTD EQU = xX‘O1" FELE EXTEGION 1h CESS WO (OH) 128 ONBNLE EQ) Xan" SEARCH SISTEM LIBRARY ONLY 
16220000 1) 17) OSU ELKO" —_—_SYGLIST FA RESIGE REQUAED 
002A 1676 JCBORGSZ EQU JCBDSTAT*1 «© REGION SIZE (STH) i) OUT RLIST EQ) X20" UST ARG 
16240000 | 14 (O10 131 ARENT EQ) "10" SYSLIST "WOEXTN' SPECIFIED 
16250000 0028 1678 JCBDCTAG FQU JCBDRGSZ+1 CURRENT IK IN ine COUN T1308" 15 CPI SPECIFIED ON FORTS STATENENT 
16260000 a ay 
16270000 002D 1680 JCBOSLOB EQU JCBOCTAG#2 «© SYSLIST IN MOS een |} yt eM Me 1000 
16290000 i'M yO 1000 
16290000 OO2F 1682 JCBORTCD ER) «=CBOSLOB*2 «= RETURN OE (HL) i) 
= esr nae = 
16310000 0031 1684 JCBDEXTa EQU JCBDRTCD*2 = JCB ENTGION MS oe) (OW 18 UML E190" 200 TERUNATION INTERLOCK 1390000 
16320000 COO TH LIS EQ 10" FLUSH INLINE SORCE 
0033 1696 JOBOPRG] EQ «JCBDEXT@+2 «= RELATIVES OF AR A i) (DTH) OPIS €Q) 120" PROGRAN FAS ALINE SOURCE 
16340000 0035 1687 JOROPRG? EU =XBOPAGI+2 = RELATIN. SF wan (O10 A COAT E110" URUTIATOR O10 MOT AATTLATE. THIS 105K 
76350000 0037 1688 SES OW 8 SOOPRGZ+2 «| RELATES ED on) 7 0 SECURED AESOUNTE 
16360000 | 1: 0039 1689 SCRUUSN2 ED CROUSR1+2 9 RELATIE SSF UA vena | (UH TH JOMEVPR EQ) A EVOKE PROCEDURE 
16370000 0038 1690 ABOPGIL EGO = OROUSRZ<2 = PRG LIOR 1 CL) OH ARP EQ) WOO" SET SPOOL FILE EOF A LAST CHECK 
16380000 0030 1691 KMOPGA BW 9 XBOPGII+; PRIN? (00 FOR] HS ian : re 
16390000 | 19 CO 1662 SOROURTL EQ | BOPGAL +2 «USER! LID FOR AS soon | 
19900000 OOF 1693 SOT ES = ROUT «2 USER LID FRI AS wan 
wen000D 


g2 222205 2 28 


SSR RRE SERS 


0002 HA} TMPPSHH EQ) 2 
O03 32 TMPNSG EQ) 3 TH 3 = PROCEDURE PARSE 
0004 3) TMMPSTH EQ) 4 TAG 4 PROCEDURE PARSE 


BPEXTa EQU © TUBCOMON*2 ©— REMOTE WORKSTATION TUB ADDRESS (PRINTERS) 
0027 3608 TUBPRESV EQU TUBPEXTa+1 © RESERVED BYTE eoven | 
0028 3609 TUBPFNNO EQU  TUBPRESV+4 FORMS NUMBER 361000) 


002C 3610 TUBPFMLN EQU = TUBPFYNO+1 = FORMS LENGTH (LINES/PAGE) 61100 0005 SA TMS ED 5 TAGS ~ PROCEDURE PAR SAE AR 
0020 3611 TUBPCRLN EQU TUBPFMLN¢l © CURRENT LINE 3612000 | 17 ONS HSS THMPSBC EQ) 6 THO 6 ~ PROCEDURE PAR SAE ARE 
0O2ZE 3612 TUBPMXPP EQU  TUBPCRLN¢1 MAX PRINT POSITION CHORIZONTAL) 3613000) O01 346 TNMPSDE EQ)? 7 PROCEDURE PAR SAE AR 
OO2F 3613 TUBDPRST EQU TUBPIXPP+1 PRINTER STATUS BYTE 640 O08 HAT TSO EQ) 8 TAG 8 » PROCEDURE ARH SAE HE 
0080 3614 TUBSPUPM EQU ‘80° « POST USER ON ERROR MESSAGE 3615000 | | C009 Sod THLE EQ 9 TH 9» LOCAL AREA 
0040 3615 TUBSDPST EQU X‘40' « PRINTER PAST READY 361000) COOH 3469 TIASINS QU 10 TAG 10~ SYSIN SAVE AREA 
0020 3616 TUBSEXTD EQU x'20' . THIS PRINTER TUB HAS AN ADDITION 611000 008 3470 TMAMOSA QU 11 THG 1+ ORT OATA SAE AREA 
3617 * EQU. X'10' . RESERVED e100 | QO0C 3671 TMAISAVE EQ 12 TAG 12> SAVE/RESTORE AREA (ENS 
3618 * EqU. xX'03' . RESERVED 3610) QOUG 3672 THINER EQ) 12 USER SAVE. AREA (12-22) 
619 * EQU  K‘O4" ~ RESERVED 620M COLT SAIS THAIN. EQ 3 TIQUIRY SAVE AREA (23-3 


E14 ty) 
108/81 02:16 MASCPR ANGCPR ~ MATH STORAGE TPL = CRPRND PROCESSOR FUACTION 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC ORUECT CODE AUR STAT SQACE STATENENT 
16420000 |02| 0043 1695 JCBDMENU EQU JCBDUR2L+2 RELATIVE SS OF MENU MESSAGE MEMBER rayon | 02 OOK) 1149 JCROWSER QU JCBOCSBPAS USER 10 
0045 1696 JCBOMENL EQU  JCBOMENU+2 MENU LIBRARY FORMAT-1 ADDRESS 16sr0n0 
16440000 OF 115] JOORFRA QU. CRDUSER#2 ——SYSIN BUFFER ADRESS 
03} 0047 1698 JCBDJBID EQU JCBOMENL+2 JOB NAME CID) sgsnonn | 0: OWE 1752 KRDLCLH EQU —JCBOUSER2 LOCAL DATA AREA ADRESS 
16460000 
0048 1700 JCBDLNPG EQU = JCBDJBID+1 — LINES/PAGE TON OOO 154 JOBLLATH £Q0.JCROBFRaYL LENGTH OF ACB 
04 04 
Hepes cose 1702 JCBOFFND EQU NPG+4—_FORINS NUMBER reo 115g tentennnnnnnnenenennnannennnnntanennnnnnnntnntttit 
16500000 im 
0 004D 1704 JCBDSLLC EQU JCBDFMNO+] = SYSLIST CRT LINE COUNTER : oso | 09} Wh C0 EXTENSION 
16520000 UH* 
16530000 Q04E 1706 JCBONFTF EQU JCBOSLLC+] © NUMBER OF FORMATS FOUND wo Tis] Soeaeeenennnanmanenesyn tegen 
106 06 
16550000 0050 1708 JCBOFINA EQU  JCBONFTF+2 ADDRESS OF FORMAT INDEX Tre COOL 1262 JOOSSBA EQ) 1 SESSION SPECIFICATION BLOX P 
00031763 sCROCCBA EQ) JCBDSSBR+2 CHECK POINT CONTROL LON PI 
0052 1710 JCBDCIBa EQU JCBOFIN@+2 ADDRESS OF COMPILER INFORMATION BLOCK O05 164 JCBPLST QU JCBDCOBR2 PHONE LIST CHAIN POLMTER 


(O06 166 CROLAI® EQU JCBDPLSTe1 LPL VALE 
(004 L767 JCRMLPL EQU. X‘O4" LPL SPECEFLED OW FORKS STA 


0055 1714 JCBDSLLR EQU  JCBOOTF+1 —SYSLIST CRT LINES REQUESTED Ti (006-168 AKLPL EQN ‘06 6 LPL SPELFIED OM FORE STA 
008 TAH MBLPL EQU ‘08 LPL SPECEFIED OM FOR STA 


16630000 {09 0056 1716 JCBDOFRG EQU JCBOSLLR+1 REGION SIZE (DEFAULT) Arno | 09 
AQOF 1771 ABOERSV QU JCBOLPI##9 RESERVED AREA 
16650000 0057 1718 JCBOJBRG EQU JCBDDFRG+1 © REGION SIZE (JOB) THN O10 1772 CROELNG EQ) JCBDERSV+1 LENGTH OF JCB EXTENSTON 
10 10 1173 ** FAD OF EXPANSION ** 
16670000 OO5E 1720 JCBOMENF EQU  JCBOJBRG+7 = MENU FORMAT INDEX CNON-RELEASED WS JOBS) W000 Id CEQ AIH STORAGE NUCLEUS EQUATES 
16680000 005A 1721 JCBOJQST EQU = JCBOJBRG+3 © JOB QUEUE JOB START TIME (J0BQ JOBS) Ta I1f5 SM Manta enaacenmnicectintssn a tnnaniniriete 
16690000 }11 005C 1722 JCBDSPID EQU JCBDJQST+2 = SESSION PRINTER ID CRELEASED WS JOBS) yn | 1 Imo (ALN STORAGE MUCLEUS 
16700000 177] teteeneeennenenmnnennnnnntennnnnennaneRnnnRennnnnt tnt 
16710000 0061 1724 JCBDJOBN EQU «= JCBOMENF+3) «= JOB NATE (TIME STAP) aM Tiff Siaiesaeteesannesanentccianintagasaeanesnananite ie 
16720000 }12; J I)" AOR WE SIZE (HEX) SIZE (OEC) 
16730000 0062 1726 JCBDSCHS EQU JCBOJOBN+] SCHEDULER BYTE FIVE T00 1nd Mr#teenenneanenesneneeenenennnantansssennnnnnnn ttt 
16740000 0062 1727 JCBDLANG EQU = JCBOSCHS UANGUAGE CORPILER BYTE cc) 181 * 000. FIAED MOCLEUS a 
16750000 |13) 0080 1728 JCBNSYLB EQU X‘80" SEARCH SYSTEM LIBRARY ONLY THM 1g) Sosinantanepsictatineansnatansanttsaieeninitties 
0040 1729 JIBUG ER x'40° SYSLIST END MESSAGE REQUIRED 1x0 11g) #reerexnnnansscnneemennennenesnanneanmnnnnt ttt 
16779000 0020 1730 JCBMLIST EQ = X‘20° LIST RPG 13)00 1M * QUO) SYSTEN CORPUNICATION AREA 010036 
14 0010 1731 JCBMNEXT EQU X‘10" SYSLIST “NOEXIN" SPECIFIED rym 114 15 * 
16790000 0008 1732 JCRISCP EQU = X"08" 15 CPI SPECIFIED ON FORTS STATEENT 13900) 186" 0100 ACE QUEUE HEAVERS mo | 
1733 * ew x‘o« THM nae 
y6s10000 #15 1734 * tw x02" mM | 188 * 0100 MULTI-PURPOSE. 108 0 R 
1735 * Ew xd" a0 ty" 
46830000 THO" O1EO CS TRAMSTENT LOMDER 108 0020 R 
6 0063 1737 JCBUSCHS EQU = JCEDLANE*] © SCHEDULER SYTE FOUR rn | 16 tit 
16850000 0080 1738 KHMEK EW X‘30" SB TERMINATION INTERLOCK 13900 U2" G0 CORAAD PROCESSOR 10d OHO 
0040 1739 SOWFLIS GU X*40° FLUSH INLINE SOURCE Tenn mt 
1ss7e000 |1 0020 1740 KEWGIS BW x"20" PROGR HAS INLINE SOURCE Tago | t TW" 0280 TASK WORK AREA MOE 0003 § 
6830000 0010 1741 KONINIK EQU xX"10" QETIATOR DID MOT INITIATE THIS TAK Ten In" 
16890000 0008 1742 KGRAL EE = x‘08" SECURED RESOUMEE ALLOCATED BY THIS PET TM T6003 TASC UOC AREA QUEUE HOR 0005 5 
resoon00 118 0004 173 AWEWR EW xO EVOKED PROCEDURE redo | To in 
16910000 0002 1744 KRGAK GW xw- ‘SET SPOOL FILE EOF AT LAST CHECK POINT os) TMG" OOM DINETTE GPR LO WEA OH 
1es20000 0001 1745 WEG x‘o1° ERR TFOATION BLOCK PRESENT (£1) ) mt 
yes30000 i 000 * G00) SISTEM LIBRARY FORI-1 020 u 
epeoo0D ie 


i oh ma i 
Lau i 


3716 **® 


0003 3662 TASPS5S EQU 3 TAG 3 - PROCEDURE PARY SAVE AREA 
0004 3663 THAMPS7S EQU 4 TAG 4 PROCEDURE PART SAVE AREA 


3719 RR 
AWPSFO EU 8 TAG 8 - PROCEDURE PARN SAVE AREA 

0009 3668 TWAALCL EQU 9 TAG 9 - LOCAL AREA 3721 *** 
000A 3669 TWAMSINS EQU 10 TAG_10- SYSIN SAVE AREA 3722 * G 
0008 3670 TWAMDSA EQU 11 TAG 11- MRT DATA SAVE AREA 3723 *R® 
OOOC 3671 TWAMSAVE EQU 12 TAG 12- SAVE/RESTORE AREA (LENGTH-33) 0080 3724 XEX 
QO0C_ 3672 TWAMUSER EQU 12 : USER SAVE AREA (12-22) 0040 3725 XEA 
0017 3673 TWAYING EQU 23 . INQUIRY SAVE AREA (23-33) 0020 3726 XEB 


: #MSCPR MISCPR - MAIN STORAGE IPL - ( 


ERR LOC OBJECT CODE ADDR STMT S 


16960000 | 02 0060 1749 JCBDUSER EQU JCBDCSBP+8 USER ID 02 1803 ° 
16970000 1804 
OO6F 1751 JCBDBFRA EQU  JCBDUSER+2 | SYSIN BUFFER ADDRESS 17520000 1805 
16990000 | 03 OO6F 1752 JCBDLCLA EQU JCBDUSER+2 LOCAL DATA AREA ADDRESS 03) 1806 » 
1807 * 
77010000 0070 1754 JCBLLNTH EQU  JCBDBFRa+1 =~ “LENGTH OF A JCB 17550000 1808 * 
4 ’ 
17030000 1756 RAAKRARAKRARKRRARAAARAKRAAAARAARAKAARAAAKAREAAKAKAKARAAAAKAAARAAAAKAAARAKAKRARRARK 17570000 an ’ 
1757 *® x 17580000 1811 
17050000 1758 * JCB EXTENSION ® 17590000 | 05 1812 
1759 * ® 17600000 1813 * 
17070000 1760 RARRAARAAAAARRAAARAKRAAKRAKAARRAAAREARARRARRARAAKARRAAAAKKAAAAAAARARRAKKAAAARAN 17610000 1814 x 
06 06 1815 * 
17090000 0001 1762 JCBOSSBa EQU 1 SESSION SPECIFICATION BLOCK POINTER 17630000 1816 * 
0003 1763 JCBOCCBA EQU  JCBDSSBa+2 — CHECK POINT CONTROL BLOCK POINTER 17640000 1817 * 
17110000 | 07 0005 1764 JCBOPLST EQU JCBOCCBa+2 PHONE LIST CHAIN POINTER 17650000 | 07 1818 * 
1819 * 
17130000 0006 1766 JCBOLPI* EQU” JCBOPLST+] ~ LPI VALUE 17670000 1820 * 
0004 1767 JCBMALPI EQU  X'04' 4 LPI SPECIFIED ON FORMS STATEMENT 17680000 | 08 1821 * 
17150000 0006 1768 JCBMGLPI EQU  X‘06' 6 LPI SPECIFIED ON FORNS STATEMENT 17690000 1822 * 
0008 1769 JCBMELPT EQU  X‘08" 8 LPI SPECIFIED ON FORNS STATEMENT 17700000 1823 * 
17170000 09 1824 * 
OOOF 1771 JCBDERSV EQU JCBDLPI®+9 RESERVED AREA 17720000 1825 * 
17190000 0010 1772 JCBOELNG EQU  JCBDERSV+l ~~ LENGTH OF JCB EXTENSION 17730000 1826 * 
1 1773 ®*® END OF EXPANSION ** 17740000 | 10 1827 * 
1774" NUCEQ MAIN STORAGE NUCLEUS EQUATES 1828 * 
15 a 1829 * 
1830 * 
1831 * 
1832 * 
1833 * 
1834 * 
1835 * 
1836 * 
1837 * 
1838 * 
1839 * 
1940 * 
1s * 
1842 x 
1843 ® 
184 x 
185 ® 
186 x 
1793 * 184 * 
Tea10000 | 1 1794 * 0280 TASK UOPK AREA INDEX 0023 B 1 138 * 
17420000 1795 * ® 17960000 136 * 
T3000 1796 * C283 ‘TASK WORK AREA GEL FOR 0005 5 manag * 179700 1850 * 
¥ree000 197 * * 179s0000 | 12 1351 * 
17450000 1798 * GARB DISKETTE ERROR LOG AREA 0038 
174000 179 * 
1900 * O7ED « SYSTEN) LIBRARY FORNAT-1 
17eg0000 1s01_* 


DAE S128 


3716 RRRARAARRRAARAARAARRARARARRARRARARARRARAERARR AERA RARRRARRRRAR RRA RET 
3717 ** MAIN STORAGE TRANSIENT AND TRANSFER CONTROL RIB EQUATES ise 
T[g RRARRARARRARRARARAARARRAREARARARRARARRARRRERARARRARRRRRAREARRARARRARRER 
3719 RRRAARAARRARRAAARRARARRRARRARRARARARARRRRARRAR RRA RRR RARE RII IR 


3723 RRARRARRAAKARARARAARAAAARARAARAAAARARAAAAA RA AAA RR ARAAA AAA AA RAR RAR AARAR 


0080 3724 XEXAMID EQU X'‘80" EXAM ID TRANSFER ROUTINE 
0040 3725 XEAOFF EQU X'40' SET EA CYCLE XLATE OFF INDICATOR 
0020 3726 XEBOFF =EQU = X*20' SET €B CYCLE XLATE OFF INDICATOR 


MMSCPR MSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


17500000 | 02 1803 * * 
1804 _* 0310 ALTERNATE SECTOR ACE 0010 16 NUGERACE * 

17520000 1805 * 7 

17530000 | 03 1806 * 0320 STATISTICAL LOGOUT ACE 0010 16 NUALGACE * 
1807 * is 

17550000 1808 * 0330 INTERVAL TIMER ACE 0010 16 NUATIACE * 
1809 *® ® 

17570000 1810 _* 0340 __ MSP_ERROR ACE 0010 16 NUANACE * 

17580000 1811 *® ® 

17590000 1812 * 0350 © SWAP ACE 0010 16 NUGSWACE * 

17600000 1813_* ® 

17610000 1814 * 0360 MS TRANSIENT LOADER ACE 0010 16 NUaITXACE * 

06 1815 * 7 

17630000 1816 * 0370 DISKETTE ERROR ACE 0010 16 NU@IEACE * 

17640000 1817 * * 

17650000 | 07 1818 * 0380 ERROR TASK-TASK ACE 0010 16 NUACSETC * 
1819 * x 

17670000 1820 * 0390 DISPATCHER TQE 0008 8 NUBDSTQE * 

17680000 1821 * ® 

17690000 1822 * 0398 MIDNIGHT TQE 0008 8 NUBMNTQE * 

17700000 1823 * Ls 
1824 * 03A0 STATISTICAL LOGGING TQE 0008 8 NUBDLTQE * 

17720000 1825 * x 

17730000 1826 * 03A8 Sas FAILURE TOE 0008 8 NUBATQE = 

17740000 | 1 1827 * ® 

17750000 1826 * 0380 TERMINATION DUMP 108 0020 32 NUADPIOB * 

17760000 1829 * ; e 

17770000 | 11 1830 * 0300 TERMINATION DUMP ACE 0010 16 NUBDPACE * 

17780000 1831 * 

17790000 1832 * 0010 ® 

17800000 1833 * 

17810000 1834 * O3FO _IPL_ASSIGN/FREE AREA 0310 

17820000 1835 * 

17830000 1836 * 0700 TRACE LOGOUT BUFFER AND 0100 26 NUATRBUF * 

17840000 1837 * ~ 

17850000 1838 * 0700 = ALTER/DISPLAY WORK AREA 00CO 192 NURADURK * 

17860000 | 1: 1839 * ® 

17870000 1840 * 0700 _IMPL ERROR LOG SAVE AREA 0040 64 MBADZK * 

17890000 1841 * * 

17890000 142 * 0800 (9S _ TRANSIENT AREA 0300 2048 MUSKIENT * 

17900000 183 * 

17910000 13 

17920000 

17930000 

‘17940000 

17950000 

17960000 

17970000 

‘Tr9@0000 

17980000 

yano0000 

19010000 


P 


PAGE 37 09/11/81 12/08/81 02:16 


OO1F 3769 | 
0020 3770 | 
0021 3771 | 
0022 3772 | 
0023 3773 | 
0024 3774 | 
0025 3775 | 
0026 3776 f 
0027 3777 F 
0028 3778 f 
0029 3779 f 


@"SCPR SMSCPR - MAIN STORAGE IPL 
ERR LOC OBJECT CODE ADDR STI 


185 
0000 18 
185 
0000 185 
0100 185 


OOLF 3769 RCPTC §— EQU X*TF* MM MN IH sa | waar at 

aa 
0022 3772 RSVNR ‘i YO) AMAR RRARRRRRRRRARARRARRRARRRRARARARRRARRARRRRERRRRARERARARARA/ 
0023 3773. RMDDG A CFA CMT LE EY SP, 
0024 3774 RMAF QU XZ i PE, ADR ELD TA ATION WTS, 
0025 3775 WNDU X'25' | 


0026 3776 RWDOA —EQUX'26' 

0027 3777 ROFFLINE EQU = X'27" —OFIRWOINK, 7) PGET SPACE FORA CRY 
0028 3778 RWODH = EQU.X'28' KMS SOL" S90 LEM ICLLNTH 

0029 3779 RWODQ EQU. X'29' WY SMC SASH, ASSIGN REQUEST 

002A 3780 RMOCP = EQUOX'2zA' Hin QUES) OL ACCICLLNTH) ASSIGN LENGTH 


9/11/81 12/08/81 02:16 


ASCPR MSCPR - MAIN ST 
ERR LOC OBJECT CODE 


CHW 17 AUST QU HACSETE AALALE DISPATCHER TOE wyoannn {02 
0000 1854 NUFIXNUC EQU —X‘Ot' _AUSINE OM fle) MtA ws WOH WO ALTE EQ) 8 * (LENGTH OF A TA) wy 
1855 * 0) we a) 
0 0000 1856 NURSCA —EQU —NUFLIN SNTNLIMNLWIN Ye vee | CON TO WAM EGU UBOSTOEAALTOEATDLGHT TA ipnone | 03) 
0100 1857 NULSCA EQU 256 __* (LKHIFAN) wan wl ‘wn 
1858 * oT) CHD I LTE EGU HARROGATE STATISTRCS ATA LOG TIME ELEKE TyinnO0 
04 0100 1859 NUBACEQH EQU — NUS NSE Qn ieK Wa | iyo anon 104 
00CO 1860 NULACEQH EQU 192 * (IRN RW tw CW UATE QU WOLTOESMILOE ASS/FREE: FATLUTE TIME Q ELEMENT tytn 
1861 * ce) ny Tylcnnd 
05 O1CO 1862 NUBMPIOB EQU — NUGAIGHIAIH ANN HH I wana (HO ARMPOB £QU HATOEAAULTOETERAIAATION OUYE 108 ssnno 105 
0020 1863 NULENIOB EQU 32 (NGAI) wt in tye 
i864 rn) UN) PACE EU TO ALENT TERATVATLO OUNP ACE Wise 
06 OLEO 1865 NUGCXIOB EQU — NUSRIAN(S TAS Wet id vw |) wy! tyatno |06 
1866 * ws (DO WCE QU _IIPICESNLACE PERNT SWAP. ACE wyauno 
0200 1867 NUBCPTCE EQU —— NUEAIGAIDNN Cnt rsh co) im Wain 
07 0002 1868 NUACPT@H EQU xX ‘C2’ —IIMMMNENETS an) ww O50 1 WRPLAE EWU. IBSPACEMAULACE FLYED RUCLEUS FREE AREA #1 syntno {07 
0080 1869 NULCPTCB EQU 128! (INNER wm wo wen) 
1870 ® Wie Wa ARMERRRERRARARRRRRRRRARRARERRRRERARRARARRARRRARARERRARRRARRRERRRRRARE 192500 
08 0280 1871 NUATWAXL EQU — NUSCIOAM AW KOI Cem) wp | 5" ssn 109 
0023 1872 MATWAX EQU 35 (ANE ARCN AIRE) wan OHO NM AMITENT EQ) 2488 TRASTENT AREA wz) 
O2A2 1873 NUATWAXR EQU — NUaTALATINA TORR (ia CO i Ca) 
09 1874 * oo 
1875 ® NOTE: TASK WH MASK LES PR C10 0) HLT EQ) 288 LEVGTH CF TRACE SUFFER 
1876 * BYTE, WOT AE IONE ESAT OF TE TOK CH AUF QT MRNTENT-MOTRR TRACE LOGOUT BUFFER 
10 1877 * WORK Het TE, wenn im 
1878 * ww OTN WAR QU MITRRUF——_ALTER/DISPLAY WRK AREA way 
O2A3 1879 NUaTWAQ EQU NUTALILTA THO AE RE CGE Ta O18 LAK E0182 * (LENETH OF AREA) TsO 
1 0005 1880 NULTWAQ EQU 5 (THF Ra weave | ut 930000 111 
1881 * wean CL 5 RAO QU ALATRRUFOHVLACKR TPL. STORAGE ERROR SAVE. AREA 1stnn 
O2AS 1882 NUARDIOB EQU — NUTIMVALTA/SITE UST GUT WA 0) its Tivo) 
1 0038 1883 NULRDIOR EQU 56 == CIKNIF A) www | OO 17 LIP EQ ATRRU-WUAIPL LENGTH OF JPL FREE AREA wn | 
1884 .* ww te wan 
02£0 1885 NUROLBF] qu NUaRGALaIE PAT SRT FRAT ) 1) AUERRRARRAREARRRRRARRRRRRARRARRARRARRRARARRRARARRERRRRRRARARRRARRERER 1ann0 
0020 1886 MUL@LBF1 EQU 32 ‘KN won | we ypeed | 
1887 * vn TOD TL MAR EQ) ASTERTMULYTENT ARUN STORAGE. MUCUS ~ VARIABLE. AREA conn) 
0300 1888 NUATRACE EQU — MUDMIINT Lani my we Tanto 
I OO10 1889 MALACE EQU 16 (LRNFAKD vpn |14 1) 1M WSUS EMC ‘FINED AUCLEUS FREE AREA #2 pean |14 
1990 * sn TO 19 ISS EQ 406 DEFAULT LENGTH FREE: AREA #2 wenn) 
0310 1891 MURERACE EQU MUTA ATIAT SCA a] Wt Teun 
5 1992 ® yan | 1) IH MALO EQ MESISeAULYESQS LOND ADDRESS UHEN [PL DISKETTE wpaeoo 115 
0320 1893 MUBLGACE EQU MUSEUM SHI lk at a) we aout 
1994 ® a) TF OF PATON ** Tanto 
1 0330 1895 MURTIACE ECU ARABIA! NEI Titi van | wt PASE wnat |16 
199% x ie) 19h) Hitt RRRAREARERRARRERRRRRARRRRRERRERRERRRRERRRRRRA, WKN 


0340 1997 MIAME EGU | MUBTIAMUEI ALTE LER AE ra) int ‘ WSN 
0350 1999 MURSMACE EQU MARATHI CIW won pt t 50 
i) T5000 


1900 x Gf RIRHRRRRRARERRRRRRRRRRRRRERERRRRR ERROR RRR ERRRRRRRR ERROR, 


5 360 190] WMNPACE ECR) «| WRARSUATLNE ACN TN SR waa | 
yoo? * (O00 1 PSTIGIO QU. SECTOR TAG FOR TURG/TIAP i 


Why ano 

0370 1903 MIRTEACE ECR) MMARWAIAUAL AL NREL When 

19 1906 * wea (Ot! NSA PFLAGL QU. PPSTAGIOA — FLIGE BYTE woo {19 

OSB) 1905 MAMET ECR ARMIES ILI Wea OO LAUT EQN. W'80" PROCEDURE 15 SOP i) 

ess! : 
0 | 


{ 
{ 


MN ne 
EH ASR ~ AV STORE (P.-C PROCESSOR FLAC ORE 3 WOR] LANNE COsi6 
GRC CON ADR STN SRE STATENERT 
J PORNERCRORSIRRCTC RRA RR men SY CUE ACTLATY - ae0FR ft ston 
a * QUE MME =I) . nu 3' 6 MO - fom i mst i) 
5* ‘ ‘aK ry 
& SCRAPING HAC: ASHE L-COM RE ACTIN * corn | 
a . ‘nia 
B* CaP a 
D ** COPYRIGHT SON A OP a, q 
mD*r “LARRD EIA - PRA A Ot 4q 


ne FER TTP IRTP APR CLI") 
> ek SEM cr Te 


3824 *7*® R/ 
3825 KJ RRERRARRARARRAKRARAARRARRARAA RARER AAAA RRA ARARR RRA RAR RA ARERR RR J 
3826 _*/* GET SPACE FOR A JOB CONTROL BLOCK. IT WILL BE USED BY SPOOL, */ 
B27 */® JOB QUEUE, AND HISTORY OVERFLOW INITIALIZATION ROUTINES. */ 
3828 K /ARRRRKRAKAKRAAARAKRARAARAARARRAA RRA RAK RARRARRAAAARARRARRA ARERR ARR 7 
3829 */* ld 
3830 * — ‘GEN; 7* GET SPACE FOR A JCB */ 
3831 * ASSGN LEN-JCBLLNTH 
3832 SVC__SVCASSGN,O ASSIGN REQUEST 
O80E 383 OC = AL2CJCBLLNTH) ASSIGN LENGTH 


O3A0 1912 NUADLTQE EQU NUAMNTQE*NULTQE STATISTICS DATA LOG TIME Q ELEMENT 
1913 * 

03A8 1914 NUBATQE EQU  NUBDLTQE+NULTQE ASSIGN/FREE FAILUTE TIME Q ELEMENT 
1915 * 

0380 1916 NUADPIOB EQU NUBATQE+NULTQE TERMINATION DUMP 108 


19130000 
19140000 
19150000 


03E0 1920 NUASPACE EQU  NU@DPACE+NULACE PERMANENT SWAP ACE 


03FO 1922 NU@IPLAF EQU  NUASPACE*NULACE FIXED NUCLEUS FREE AREA #1 
1923 * 
1924 RAAAARKRAKRARRARRAAAAAARRAAAAAKK RAK RAARAAAAKAARARAAKARKAAAEAAAKRAARAKRARRAK 
1925 * 

0800 1926 MUGXIENT EQU 2048 

0800 1927 MULXTENT EQU 2048 
1928 * 

0100 1929 NULTRBUF_EQU 256 


MS TRANSIENT AREA 
* CLENGTH OF AREA) 


LENGTH CF TRACE BUFFER 


OOCO 1933 MULADWRK EQU = 192 
1934 * 

O7CO 1935 NURBAD2K EQU  NUBTRBUF+NULADWRK IPL STORAGE ERROR SAVE AREA 
1936 * 

0310 1937 NULIPLAF EQU NUa@TRBUF-NU@IPLAF LENGTH OF IPL FREE AREA 


*® (LENGTH OF AREA) 


1939 *AAARRRARAARARRRRAARRERRARARRRERRARRARREAAARAARRR AAR RRR RRRAAR RARER 
1940 * 
1000 194] NUVARNUC EQU  NUAXIENT+NULXIENT MAIN STORAGE NUCLEUS - VARIABLE AREA 


0001 1958 PPSFLAGI EQU «PPSTAGID+1 «= FLAGE ‘BYTE 
0080 1959 PPSCPSIT EU X"a0" PROCEDURE IS SOP 


SOO 1S PSE AB x"0° CF RECEIVED FR SOURCE Gf7 


018 


@NSCPR MMSCPR - MAIN STORAGE IPL - CORD FH 


ERR LOC OBJECT CODE 


ADOR STMT SOE ST 
0020 1961 PPSHLO E 
0003 1963 PPSSGHE E 
O05 1965 PPSRIN £ 
000? 1966 PPS! El 
0009 1967 PPSISRIN E 
QOOB 1968 PPsisnat Et 
OOD 1969 PRSPRL El 
QOOF 1970 PPA E 
00111971 PPSISILE 
0013 1972 PPSISN E 
0015 1974 PPSLIBN El 
0018 1976 PPSSGEi £ 
0018 1977 PPSSNT f 
0019 1978 PPSAT f 
OOLB 1979 PPS ff 
01D 1980 _PPSSGi f 
QOLE 1981 PSSM fl 
OOIF 1983 PPSIFS f 
0027 1985 PPSAME fl 
OO2F 1987 PPSWROI f 
0037 1989 PPS? £0 
OO3F 1991 PPSWA} E 
0047 1993 PPI Ef 
OO4F 1995 PPSIANS f 
0057 1997 PPSWAX E 
OOSF 1999 PPS? £0 
0067 2001 PPS\NiS £0 
QOGF 2003 PPSVARI £0 
0077 2005 PPSVAIO £0 


GOTF 2007 PRU Ei 


et is Ds bi 


) VO9/11/81 12/08/81 02:16 


Bl nw of 3 


19080000 
19090000 
19100000 
19110000 
19120000 
19130000 
19140000 
19150000 
19160000 
19170000 
19180000 
19190000 
19200000 
19210000 
19220000 
19230000 
19240000 
19250000 
19260000 
19270000 
19280000 
19290000 
19300000 
19310000 
19320000 
19330000 
19340000 
19350000 


ADOR STMT SOURCE STATEMENT 


02 0020 1961 PPSNOLOG EQU  X'20' DO NOT LOG TO HISTORY FILE 19620000 {02 
0003 1963 PPSSGBEG EQU PPSFLAG]+2  SOURCE-GET BEGINNING ADORESS 19640000 F 
03 
0005 1965 PPSPRGIM EQU  PPSSGBEG+2 _ PROGRAM] MESSAGE MEMBER @ SAVE AREA 19660000 
0007 1966 PPSPRG2M EQU PPSPRGIM*2 — PROGRANZ MESSAGE MEMBER @ SAVE AREA 19670000 
04 0009 1967 PPSUSRIM EQU PPSPRG2M*2 — USER1 MESSAGE MEMBER @ SAVE AREA 19680000 |04 
0008 1968 PPSUSR2M EQU _PPSUSRIM*2 —_USER2 MESSAGE MEMBER @ SAVE AREA 19690000 
000D 1969 PPSPRGIL EQU PPSUSR2M*2 PROGRAM] LIBRARY Fl @ SAVE AREA 19700000 
0 OOOF 1970 PPSPRGZL EQU PPSPRGIL+2  PROGRAMZ LIBRARY F1 @ SAVE AREA 19710000 {05 
0011 1971 PPSUSRIL EQU  PPSPRG2L+2 _ USER] LIBRARY Fl @ SAVE AREA 19720000 
00131972 PPSUSR2L EQU  PPSUSRIL+2 ~~ USER2 LIBRARY Fl a SAVE AREA 19730000 e 
U6 
0015 1974 PPSLIBRA EQU  PPSUSR2L+2 CURRENT LIBRARY F1 @ SAVE AREA 19750000 
07 0018 1976 PPSSGED@ EQU PPSLIBRA+3  SOURCE-GET END ADORESS 19770000 }07 
0018 1977 PPSSGCRT EQU PPSSGEDG+3 — SOURCE-GET CURRENT ADDRESS 19780000 
0019 1978 PPSCRT] EQU PPSSGCRT-2  * FIRST BYTE OF CURRENT ADDRESS 19790000 
08 0018 1979 PPSCRT2 EQU  PPSSGCRT *® 2ND 3RD BYTES OF CURRENT ADDR 19800000 {08 
0010 1980 PPSSGBUF EQU  PPSSGCRT+2 — SOURCE-GET CURRENT BUFFER ADDRESS 19810000 
OOTE 1981 PPSSGLNR EQU  PPSSGBUF+] © SOURCE-GET LENGTH OF RECORD 19820000 
09 09 
OO1F 1963 PPSUPSI EQU  PPSSGLNR+1 — UPSI SWITCHES 19840000 
10 0027 1985 PPSPNAME EQU PPSUPSI+8 PROCEDURE NAME 19860000 | 10 
002F 1967 PPSVARO] EQU  PPSPNAMESS © VARIABLE 1 19880000 
ll 11 
0037 1989 PPSVAROZ2 EQU  PPSVARO1*8 VARIABLE 2 19900000 
2 003F 1991 PPSVARO3 EQU PPSVARO2:8 VARIABLE 3 19920000 | 12} 
0047 1993 PPSVARO4 EQU  PPSVARO3+8 = VARIABLE 4 19940000 
OO4F 1995 PPSVAROS EQU PPSVARO4*3 VARIABLE 5 19960000 
4 0057 1997 PPSVAROG EQU PPSVAROS*3 VARIABLE 6 19980000 | 14 
O05F 1999 PPSVARO? EQU  PPSVAROG+S VARIABLE 7 20000000 |_| 
0067 2001 PPSVAROS EQU PPSVARO7+8 — WARIABLE 3 20020000 
16 O06F 2003 PPSVAROS EQU PPSVAROS*S © VARIABLE 9 20040000 }16 
0077 2005 PPSVARIO EQU  PPSVARO9*S ‘VARIABLE 10 20060000 ‘ 
1 
OO7F 2007 PPSVARI] EQU PPSVARIO*S VARIABLE 11 20080000 
2009 *** END OF EXPANSION ** 2iov00 115 
210 * PL 20110000 
Doli * REMOTE WORKSTATION TUS PROCESSOR TRANSIENT PARNETER LIST 20120000 
19 20130000 115 


0851 50 01 3B 38 
0855 F2 81 1C 


MISCPR MISCPR - MAIN STORAGE 
ERR LOC OBJECT CODE Abt 


3 


8 18 8s 8888s88ssisssss i § isssisss 


8 


8 


883s 


py eee ie ee Bp ee eet Cae ee oe Oe ee ae a nes 


50 01 38 38 3888 DTWROOZO CLC OTWACIK2, 1),DTWASSC, 1) UP TO TRACK TO FREE? eC a a a 


16 0851 
0855 F2 81 IC 3889 JE___OTwa0030 YES, FREE _UP_TRACK Sept 
TRAN), Sa TREN 
0850 5E 00 28 28 3891 ALC__ DTW0030+1¢1, 1), DTW80030+1¢, 1) DOUBLE _Q-CO0 pct} | FL ei 
00 20 89 : K NEXT TR 
: YO ATE), 
02 A___DTWFC,1),2__ POINT TO NEXT INDEX BYTE AR YTIBAL:DREEQRD), 7 YES, 
0867 SF 00 39 05 894 SLC DTWAMBYTC1, 1), DTWA0010+1(,1) DECR. INDEX LENGTH S95) 1 
0868 DO 84 04 3895 BH = DTWH0010(,1) CHECK NEXT BYTE 384th 
AAT RL 
s 
0 Woo/11/81 12/08/61 02:16 ! ISR ASN ANTE = CRD AEN FT 
ERR LUCE ADESSO STARE 
19620000 re SYST COA 
2016 * ® ® RE@ATTR->®-== TUB @ --->® ® an On) teeennnnnennnetaneneennnneniannnnne 
19640000 2017 ® ® ® x ® ) mm 
03} 2018 RARRARRRARARARRARRARAAARARAARARAAARAARARRARARRARRARAERARRERRAR RARER nye | wm SYSTEN 
19660000 x 
19670000 0000 2020 RWPLREQ EQU 0 REQUEST BYTE. ninth ame COMMUNICATION 
19680000 }04 u ws 
19690000 2022 ® VALID REQUESTS FOR THE REQUEST BYTE. 200K) UG ManneeninnneennnenenaReRARRRRRARAARR 
19700000 0001 2023 RWPLON =EQU  X"OL' VARY ON. ta 
19710000 |05 0002 2024 RWPLOFF EQU  Xx‘02' VARY OFF. een | (WO OE CHS. FQ) + UBGINNL 
19720000 0004 2025 _RWPLAUT EQU  X'04' AUTO VARY ON, uk ay" 
19730000 0020 2026 RWPLGAT EQU  X'20° GET ATTRIBUTES. PO) GO SAN SOSH AOR 
06 0040 2027 RWPLCHK EQU  X*40' CHECK VALIDITY OF THIS WS ID. ae ml Wl 
19750000 0080 2028 RWPLTUB EQU  X‘60' BUILD OFFLINE PRINTER TUB. 200i ha 
(00 SANE SASS SH 
19770000 |07 0001 2030 RWPLRCD EQU  RWPLREQ+] RETURN CODE. asia UD 2A SCS) SWS 3 TRAST 
19780000 (OE SSN ESSN ISTE 
19790000 2032 * RETURN CODES FROM @RWY rT) mt 
19800000 |03 0000 2033 RWPLSUCC EQU  X'‘00' SUCCESSFUL PRINTER/WS/BOTH. asa (NUT SCI EQ) SSI i 
19810000 0001 2034 RWPLNOSP EQU X'01' DEVICE NOT SUPPORTED. 2035uh0 Ue SOA io! + 
19820000 0002 2035 RWPLATCH EQU = X'02" ATTACH FAILED. co) er ar 
09 0003 2036 RWPLNRES EQU  X'03' NO RESOURCES. zanna | AMO SOAK EM 
19840000 0004 2037 RWPLEXIS EQU X'04' CONDITION EXISTS. 2038 UU) SSK EW Nt + 
0005 2038 RWPLPSUC EQU  X‘05' SUCCESSFUL AND PRINTER. 20s) ET a Te 
19860000 | 10 0006 2039 RWPLOSUC EQU X'06' SUCCESSFUL AND DISPLAY. oa | Ca SIE) wD" 
0007 2040 RWPLNPRT EQU X'07' SUPPORTED BUT NOT PRINTER. 204i my 
19880000 OG.s 2041 RWPLNDIS EQU  X"08" SUPPORTED BUT NOT DISPLAY. 20a (NOS SCOAD EQ SOAS 2 ARES 
ll 0009 2042 RWPLINE EQU X'‘09' TNVALID LINE FOR WSID/CUID. 20th QMO NS SOK ER) AN BAD 
19900000 O00A 2043 RWPLOACT EQU  X‘OA' ONE OR ALL DEV'S SIGNED ON. 24 mt 
0008 2044 RUPLCDIT EQU Xx ‘0B* CANNOT VARY ON AT THIS TIME. 206i GNA ONS SASF ERD SOMA 2 SOL 
19920000 |12 O00C 2045 RWPLONVO EQU X‘0C' DEV NOT VARIED ON. oat | it 
WN ZNO SCHOCSDEQL_SOWSFLM] 1 OMFG 
19940000 0003 2047 RUPLUSID EQU = RUPLRCD+2 WORKSTATION ID. 204i tin 
(WU AD CMOS EQ) SOAPS] 1 ER 
19960000 0004 2049 RWPLATTR EQU  RWPLUSID+l = ATTRIBUTES (FOR GET ATTRIBUTES) 25h nyt (ft 
ame ij 
19980000 |14 0006 2051 RWPLTUBA EQU = RWPLUSID+3 © TUB ADORESS (RETURNED ON ‘BUILD 2osinn| 1b * 
2052 * OFFLINE PRINTER TUB‘) 20500) (WO Tk SC EQ) SOMOS) 12K BLOC 
20000000 tw 
> 0006 2054 RWPLCUID EQU  RUPLUSID*3 = CONTROL UNIT ID. osu) CME OG SCH ER) SOAK 1 SSA 
20020000 ty" 
9007 2056 RMPLLINE EQU RWPLCUID+] LINE NUMBER. Bari (OF SOI EU SURG] TSK 
20040000 | 16 2057 * Eq x's" RESERVED 2osanin| COON SOHO Ea TPL 
2058 * equ x'4" RESERVED 25H QMO SAZSUN QU X'S", SPN 
‘20060000 2059 * f@ Xx'20" RESERVED 2a) oT err | 
1 2060 * Ew x"10" RESERVED 2 UOT SOAS EW) A, SPH 
0008 2061 RUPLSLNG EQU X‘08" LINE 4 20th UO TS SCAG EA. OO 
0004 2062 RUPLSLNG EQ) = X"04" LINE 3 ps] tbe . O- 
20100000 113 0002 2063 RMPLSLN2 EQU = X*02" LINE 2 oss |i amt ils 
20110000 0001 2064 RUPLSUN] EQU X‘O1" LINE 1 aos Ll Ieee iap acl eat 
r TITHE LLOING OSCE TRATION FLAS 
saiainial 21 * CAPCITY IS, OE WIT 6D SECTORS PERT 
o7* 71)| tennnnnneneneneennenenneeneeneeneennny 
1 * WM Ta SOMOS UN ISK ST 


i 


SOPR “SCPR ~ MAIN STORAGE IPL - COMI PROCESSOR FUNCTION 5 WO1I/S1 TZ708/h ti SOR AS «WS - CO PES CEO 


ORR LOC OBJECT CORE MOR Si SOURCE STATEENT 


: 


(5 TO A AR)? 

(6 10) SAAD AQ) SAT 

OP 1 AUT) ARDS 
amen eee eo Py eee yo 


B1 12/08/81 02:16 


eee ee ge eee 


a ae ee ee | ee ee ee 


SNE 5Ca0060 
OBEF_ 36 01 OBAS 
i BATTRIC, XR2), TUBSG Br 
3939 * TF XR2~>TUBATTR2=ONCTUBMSTND THEN /* AND WORK STATION? 
JF MSCa0080 


O8F3 F2 81 03 


3941 TBN TUBATTR2(, XR2), TUBMUSTN 


3942 * XR1->S$ATTUBAC1:2)=REGCXR2); /* YES, SAVE IN PARM LIST */ 
3943 JF 5080100 


OBAC 74 02 10 ST___ SATTUBAC, XR1), XR2 O8F9 F4 01 10 


ERR LOC OBJECT CODE 
02 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


SYSTEM COMMUNICATION AREA EQUATES 


2070 RARRAAAAARAKKRAKAARRRAAAAAAAAARAAAKRRAARAAAKAAAAKAKKAKAAKRKKREA RAK ARAKI RI 20710000 
2071 * ® 20720000 | 
03 2072 * SYSTEM ® 20730000 | 03 
2073 * ® 20740000 
2074 ® COMMUNICATION AREA ® 20750000 
2075 * ® 20760000 | 04 
2076 RARKRKAAKRKRKRKKRKKRRARRARAAAAARA KR RARAARAKAAARAKK RA AAA KRARAAKAAAAAAAAAKARAK 
05 0000 2078 SCASYS EQU 0 . BEGINNING OF SYSTEM Cort 20790000 | 05 
2079 * 20800000 
0001 2080 SCADDNIC EQU- “SCASYS+1 . ABNORMAL TERMINATION ERROR MIC 20810000 
06 2081 * .  CWILL BE SEEN IN DUMP AREA ONLY) 20820000 | 06 
2082 * 20830000 
0000 2083 SCADPSVC EQU” “SCASYS 3 DUMP SVC CLEFT HAND ADDRESS) 20840000 
07 0003 2084 SCADXSVC EQU SCADPSVC+3 3 = TRANSIENT EXIT SVC CLEFT HAND) 20850000 | 07) 
0005 2085 SCADSSVC EQU  SCASYS+5 .___ SYSTEM SVC AREA 20860000 
2086 * 20870000 
08 0006 2087 SCANSIZE EQU SCADSSVC+1 1 — MAIN STORAGE SIZE IN 2K BLOCKS 20880000 | 08 
0080 2088 SCAN256K EQU X‘80' ~___X"80" - 256K MAIN STORAGE [R71 
0040 2089 SCAMI26K EQU  X"40° K'40" = 128K MAIN STORAGE 
0030 2090 SCAYS96K EQU X'30' . _X"30" = 96K MAIN STORAGE 09 
0020 2091 SCAMS64K EQU X'20' -___X'20" - 64K MAIN STORAGE 
0018 2092 SCANS48K EQU  X‘18" . X18" ~ 48K PAIN STORAGE 20930000 
1 0010 2093 SCAMS32K EQU  X'10' . X10" ~ 32K MAIN STORAGE 20940000 } 10 
2094 * 20950000 
0008 2095 SCAZKBAD EQU SCANSIZE+2 2  ADORESS OF BAD 2k BLOCKS SAVE 20960000 
ll “9000 2096 SCA2KOK EQU x‘0000' . NO BAD 2K BLOCKS 20970000 | 11) 
2097 * 20980000 
OOOA 2098 SCADSPIa EQU SCA2KBAD+2 2 | SPOOL INTERCEPT STORAGE ADDRESS 20990000 
2099 * 21000000 | 1. 
0008 2100 SCADCFSZ EQU SCADSPIa+1] 1 ‘CONFIGURATION RECORD SECTORS 21010000 
2101 * 21020000 
13 OOOC 2102 SCA*ZKMS EQU SCADCFSZ+1 1 NUMBER OF AVAILBLE 2K BLOCKS MS 21030000 | 1 
2103 * CARIN STORAGE SIZE MINUS NUMBER 21040000 
2104 * OF BAD 2K BLOCKS) 71050000 
14 2105 * 21060000 | 14 
0000 2106 SCAMS#2K EQU SCAM2KNS*1 1 2K BLOCKS OF USER STORAGE 21070000 
2107 * 71080000 
1 QOOE 2108 SCAMAXRG EQU SCANS#2K+1 1 © SWAPPABLE TASK REGION SIZE 21090000 | 15) 
2109 * 21100000 
QOOF 2110 SCASDISK EQU SCAPAXRG?] 1 DISK CONFIGURATION 21110000 
1 0080 2111 SCANDUAL EQU  X‘80" . MULTIPLE SPINDLE DISK 1R71 21120000 | 16 
0080 2112 SCA2SPIN EQU  x"80" . 2. SPINDLE DISK 1R71 21130000 
(0020 2113 SCASSPIN EQU  X"20" . 3 SPINDLE DISK iR?i 71140000 
0010 2114 SCACSPIN EQU  X"10" - —- 4 SPINDLE DISK {R71 21150000 j 1 
0040 2115 SCADKCFG EQU  X*40° - __ DISK CONFIG FLAG 1831 
2116 * ~ O- SMALL CAPACITY DIK 21170000 
2 * - 1 -  UNRGE CAPACITY DISK zu1ac000 | 18 


siete ate 


3985 * 


3987 * 
3988 


3989 
3990 * 
O8F9 3991. MSC 
3992 * 
O8F9 3993 MSC 


i MMSCPR MMSCPR - MAIN STORAGE IPL - C 


ADOR STMT $ 


0001 2123 $ 
2124 * 
2125 * 
0081 2126 $ 
0001 2127 S 
0000 2128 S 
2129 * 
2130.* 
2131 * 
2132 * 
2133 * 
0040 2134 § 
0001 2135 $ 
0041 2136 $ 
00C1 2137 § 
OOE1 2138 $ 
0001 2139 $ 
2140 * 
0010 2141 $ 
OOA5 2142 S 
005A 2143 SI 
2144 * 
Q011 2145 § 
0004 214 SI 
2147 * 
0012 2148 SI 
0080 2149 S 
2150 * 
0020 2151 SI 
0010 2152 S 
2153 * 
0008 2154 Sl 
2155 * 
0004 2156 SI 
2157 * 
0002 2158 SI 
2159 * 
2160 * 
0001 2161 & 
2162 * 
0013 2163 SI 
0080 2164 SI 
0040 2165 SI 
0020 2166 & 
0010 2167 & 
0008 2168 SI 
0004 2169 Sf 


SPOON 9 TUNE 7 9 FE etek ITOLIN 


La 
* TF ZERO, REGCNRI)=REGCKR1)+KOO THEN /* ADDRESS OK? BHTES*/ 39860000 | 1 
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0001 2123 SCAMDSIZ EQU X‘O1' : X'O1' - DISK FILE SIZE 2izao000 | 02] 


; 4 o- 8 ABYTE OIS 1250000 
2125 * 1-12 MEGABYTE DISK 21260000 
0 0081 2126 SCANZ7NG EQU  X'81' . 27 “MEGABYTE DISK 21270000 | 03 


: 13__ MEGABYTE DISK 1280000 
8 NEGABYTE DISK 


0001 2127 SCAMI3NG EQU 1 
0000 2128 SCAMIONG EQU 0 
2129 * 
2130 *ARARRAAARRARARAARARRARREARARARARARARAARRARRAARRRARRAAARRARARERARRARARR 
2131 * THE FOLLOWING DISK CONFIGURATION FLAGS ARE VALID ONLY FOR A LARGE * 21320000 
2132 * CAPACITY DISK, ONE WITH 64 SECTORS PER TRACK. x 
2133 RARARAAARAARAARAARARARARAAARARRRERRARRARAERARRARARRARRA AAA RRER ARR 
0040 2134 SCAN62PC EQU X‘40' . LARGE CAPACITY DISK 1R3] 21350000 
0001 2135 SCAN65NG EQU X‘Ol' s 65 MEGABYTE DISK 1R3| 21360000 
0041 2136 SCANOG5SM EQU X'41' é 65 MEGABYTE DISK 1R7| 21370000 
00C1 2137 SCAML30N EQU  xX'Cl' 7 130 MEGABYTE DISK IR7| 21380000 
OOE1 2138 SCAMI95M EQU  X'E' . 195 MEGABYTE DISK 1R7| 21390000 
0001 2139 SCAMZ60M EQU X‘D1' : 260 MEGABYTE DISK IR7I 21400000 
214 * 21410000 
0010 2141 SCADPIND EQU SCASDISK+] 1 SYSTEN/OUMP INDICATOR 21420000 
OOA5 2142 SCAMDPOK EQU  X‘A5' . VALID DUMP 21430000 
PUS EQU = X"5A’ VALID DUMP - HAS BEEN ACCESSED 


07 


2144 * U9 
0011 2145 SCACSIZE EQ SCADPIND+1 1 CONTROL STORAGE CONFIGURATION 
0004 214. SCACSI6K EQU X‘04' . X'04* -16K CONTROL STORAGE 1 
1 2147 *® 0 


1 


0012 2148 SCADCFG] EQU  SCACSIZE+1 SPOOL_AND JOBG_ INDICATORS 
0080 2149 SCAMAUTO EQU = X'80" X‘80' - AUTO WRITER SUPPORTED 
2150 * equ X*40' . X'04" ~ RESERVED {R8| 21510000 
0020 2151 SCAMSPGP EQU X'20' . X'20° - SPOOL ALL PRINTERS {R8! 
0010 2152 SCANSACT EQU  X"10' : X"10° ~ SPOOL IS ACTIVE 21530000 
2153 * (SUPPORTED NOT CANCELLED) 21540000 
0008 2154 SCAMCRAN EQU X'08" : X‘08' - SPOOL COMPRESS RUN 21550000 
2155 * CREFORMAT SPOOL FILE AT IPL) 21560000 
0004 2156 SCAMJQHD EQU X'04" . X'04" - HOLD JOB QUEUE 21570000 
2157 * (DO NOT START AT IPL) 21580000 
0002 2158 SCAMJQFN EQU  X‘02" és X°02" ~ REFORMAT JOBQ AT IPL 21590000 
2159 * a IF NOT IPL, INPUT JOB QUEUE 21600000 
2160 * < HAS BEEN POSTED 21610000 
0001 2161 SCAMSPB EQU  X‘Ol' . X'O1* - ALLOCATE FILE ON “B‘ 21620000 
2162 * 71630000 
0013 2163 SCADCFG2 EQ SCADCFGI+1 1 SSP CONFIGURATION OPTIONS 21640000 
0080 2164 SCAMCNAT EQU = X*80° - COMPA LANGUAGE 21650000 
0040 2165 SCAPPUSF EQU = X"40° : PASSWORD SECURITY 21660000 
0020 2166 SCAPIORQ EQU X‘20° - 208 QUEUE 21670000 
0010 2167 SCAMSPOL EQU = X"10° . SPOOL 21680000 
0008 2168 SCATLIWK EQU  X‘03" 7 DISPLAY STATION OM TRANSIENT 21690000 
0004 2169 SCAFMDMR EQU X‘04" P DISPLAY STATION OM RESIDENT 
2170 * 


1] 


27 * . 
aR * 
0002 2173 SCAERSG EQU = X‘02" - KEEP INFO. MESSAGES AT EJ IR! 271740000 
OOOL 2174 SCARCE EQU  X"OI" : COMPAND LANGIPGE 1S ENGLISH 21750000 

2175 * 21760000 
O14 2176 SCANCFGS EQU  SCADCFG2+1 1 COMUICATIONS FEATURES 1831 


PR @MSCPR ~ MAIN STORAGE I 
ERR LOC OBJECT CODE ADOR | 


0080 | 
0020 
0040 ; 
0010 | 
0008 | 
0004 ; 


0928 CO 90 O8FE 


YSCPR MNSCPR - MA ORAG| 


VO9/11/81 12/08/81 02:16 


ERR LOC OBJECT CODE AD 


21240000 0 00% 
21260000 ; 00 
21270000 0010 2180 SCAYSNA EQU xX‘l0' 03 00: 
1280000 0005 2181 SCAMRWS £0 . 00: 
21290000 0004 2182 SCANICS EQU  X‘04° . SSP/ICE Ral 21830000 
21300000 0002 2183 SCAYLCAF EQU X‘02' . MCA (R61 21840000 | 0 003 
mR 1310000 0001 2184 SCAMTTO EQU x‘O1' .__ AUTOCALL [R6| 21850000 00: 
® 71320000 7185 * 21860000 003 
k 21330000 0015 2186 SCAMBSV EQU SCADCFG3+1 1 SSP CONFIGURATION OPTIONS 21870000 | 05] 004 
oy 21340000 0080 2187 SCAD32 EQU_X‘80' X'80' - SINGLE PROGRAM MODE 21880000 
21350000 SCENE X40" - MCA SME ACTIVE ——{R6/ 004 
21360000 0020 2189 FQ X'20' . —_-X'20" = SME ACTIVE 1R4| 06 
21370000 0010 2190 SCAMCLOG EQU_x'l0' X"10" = CONSOLE SYSLOG POSTED 004 
21380000 Xx X'08' - SECURITY 
21390000 | 07 X'04" = BUILD CONFIG RECORDS 07 
21400000 ~__X"02" = PID MODEL INDICATOR 
71410000 0001 2194 SCAMDEAD EQU X'O1' X01" - DEDICATED EXECUTION 21950000 
21420000 2195 * 21960000 | 08} 
21430000 0016 2196 SCADREL® EQU SCANBSV+l 1 _—=SYSTEM RELEASE LEVEL 21970000 
71440000 0017 2197 SCADMOD® EQU  SCADREL**1 1 SYSTEM MODIFICATION LEVEL 21980000 
21450000 2198 * 21990000 | 99 
21460000 0018 2199 SCADCNTR EQU SCADNOD"+1 1 ——_CONMUNICATIONS TRACE INDICATORS 22000000 
71470000 0080 2200 SCAML4TX EQU  X‘80" ~ EXTENDED TRACE LINES 1R6| 22010000 
21480000 | 1 0040 2201 SCAML3TX EQU X‘40' . __ EXTENDED TRACE LINE3 1R6| 22020000 | 10 
21490000 0020 2202 SCAML2TX EQU _x'20' .__ EXTENDED TRACE LINE2 RAI 22030000 
71500000 010 2203 SCAMLITX EQU  X"I0" ~~ EXTENDED TRACE LINE1 TRI 22040000 
8 21510000 | 11) 0008 2204 SCAML4TR EQU  X‘08' . TRACE COMMUNICATIONS LINE 4 1R6| 22050000 | 11 
21520000 0004 2205 SCAML3TR EQU x‘04' = TRACE COMMUNICATIONS LINE 3 1R6! 22060000 
71530000 0002 2206 SCAMLZTR EQU  X‘O2" > TRACE COMMUNICATIONS LINE 2 1R31 22070000 
21540000 0001 2207 SCAMLITR EQU X‘01' . TRACE COMMUNICATIONS LINE 1 22080000 
21550000 2208 * 22090000 
71560000 2209 * THE FOLLOWING FIELDS DESCRIBE THE DISK ADORESS (SS) AND 72100000 
21570000 | 1 2210 * SIZE (SECTORS) OF VARIOUS WORK AREAS ON THE DISK. WHERE 22110000 | 1 
21580000 2211 * POSSIBLE THE SS HAS BEEN DEFINED AS A 2 BYTE FIELD. THESE 


21620000 OOLA 2215 SCASSTWA EQU  SCADCTTR#2 = 2 SS OF TASK WORK AREA 

21630000 OOIC 2216 SCATWASZ EQU SCASSTWA2 92 SIZE OF TASK WORK AREA 22170000 | 15) 
21640000 2 * 22180000 
21650000 OOLE 2218 SCAFVTOC EQU = SCATWASZ+2 2 SECTOR ADDRESS OF DISK VIOC 22190000 
21660000 | 1 0020 2219 SCAFVTON EQU SCAFVTOC+2 92 SIZE OF DISK VTOC z2200000 | 16 


2220 * 22210000 


21680000 0022 2221 SCAIVTOC EQU = SCAFVIUNe2 = 2 SS OF DISKETTE VIOC WORK AREA 22220000 
21690000 | 1 0023 2222 SCAIVION EQU SCAIVTOC+1 1 SIZE OF DISKETTE VOC WORK AREA zzz0000 | 17 
71700000 273 * 22240000 
21710000 0025 2224 SCASIOSS EQU  SCAIVIONe2 = 2 SS OF SIO TABLE DIRECTORY Z2ZRMO 


0027 2225 SCALOGSS EQU = SCASIOSS*2 2 SS OF ERROR TABLE DIRECTORY ZZ260000 
22% * 22770000 
0029 2227 SCADSSS EQU  SCALORSS*2 2 SS OF AAIN STORAGE DUMP AREA 22730000 


Sssisssisss sss siss i§ gs} ssi 8 igs iss 


21750000 | 1! 0028 22278 SCADSSCS EQU  SCADSSS*2 2 SS OF CONTROL STORAGE DUP AREA 227290000 | 19 
21760000 QO2D 2229 SCADSSIO EQU  SCADSS(S*2. 2 SS OF 1/0 PROCESSOR DUP AREA 27300000 


UIIF Te WW 
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21780000 | 0 O02F 2231 SCACONFG EQU SCADSSIO+2 2 — SS OF CONFIGURATION RECORD 22320000 [0 O28 SH 
21790000 2232 * 22330000 On) 2 SA 
21800000 0031 2233 SCASHIST EQ COM TSR 
21810000 | 03 0033 2234 2 SIZE OF HISTORY FILE 22350000 {0 On 2 SL 
21820000 0035 2235 SCAHFCUR EQ 2 ___$S OF CURRENT HISTORY FILE ENTRY On 9 She 
4 21830000 36 22370000 O08 1) SHE 
6 | 21840000 | 04 0038 2237 SCASMSG1 EQU SCAMFCUR+3 3 = SS-1ST LVL SSP MSG MEMB C#M1SG1) 22380000 {04 OW 2 SA 
6 | 21850000 0038 2238 ScasHSS EQU SCASMSG1+3 3 _~——SS-SSP HEADINGS ISG MEMBCA@riSG2) 22390000 a 
21860000 00 9 ASIMSG ASHMSG (OO) 283 SO 
21870000 | 0 0041 2240 SCASMSG2 EQU SCASWNSG*3 3 © SS-2ND LVL SSP MSG NEMB CHmnisG4) aN" 
21880000 2241 * 22420000 Nh" St 
6| 1890000 ASMSG2+3 P (O5D 2G SOR 
4 21900000 | 06 OUR 2) SH 
21910000 SS OF SPOOL PRIMARY FILE [RSI COE 2 I 
21920000 POOL IS INITIALIZE DURING IPL THIS FIELD WILL 22460000 OF 9 ST 
21930000 | 07; 2246 * BE INITIALIZED TO ONE OF THE FOLLOWING: 22470000 {0 oh 
21940000 2247 * X*000000' CANCEL SPOOL. 22480000 Oust SCT 
71950000 2248 * K'FFOOOO * DELETE SPOOL FILE AND CANCEL SPOOL. 22490000 wi 
21960000 | 08 2249 * X‘OONM#®" WHERE: N= SPOOL FILE SEGMENT SIZE (BLOCKS-1) 22500000 {08 On SE 
21970000 2250 * awa = NUMBER OF SPOOL FILE SEGMENTS 22510000 Oy" 
71980000 2251 * 22520000 (8) ST 
21990000 | 09 0049 2252 SCAUSERA EQU SCADSSPR+2 2 — START ADDRESS OF USER STORAGE 22530000 {09 (Ok) 1S 
5 22000000 0048 2253 SCADSBFP EQU SCAUSERA+2 2 —_ ADDRESS OF SPOOL BUFFER POOL 22540000 my 
6 22010000 2254 * 22550000 aM 
6| 22020000 | 10 004) 2255 SCADMERP EQU SCADSBFP+2 2  — ADDRESS OF MSP ERROR SAVE AREA 22560000 ON) SA 
4] 22030000 0040 2256 SCADCPKA EQU  SCADMERP 2 __ADDRESS OF C.P. DISKETTE [08 22570000 O12 SS 
4| 040000 2257 * 22580000 COLO 2311 SEY 
6| 22050000 | 11 O04F 2258 SCADLBF1 EQU SCADMERP+2 2 — ADORESS OF #LIBRARY FORMAT-1 22590000 oe 2312 SA 
6| 22060000 2259 *® 22600000 On 2313 SE 
3 22070000 0051 2260 SCADFIST EQU  SCADLBFI+2 2 FIRST ACTIVE FORMAT-1 ON CHAIN 22610000 Od NS 
22080000 | 1. 0052 2261 SCAD*TUB EQU SCADFIST+1 1 NUMBER OF LOCAL CONFIG. TUBS 22620000 On sso 
22090000 2262 * 22630000 ou" 
72100000 0053 2263 SCADBSCT EQU  SCAD*TUB+]1 1 | NUMBER OF USERS OF BSC DM 72640000 OO HT OE 
22110000 | 1. 2264 *® 22650000 mut 
22120000 0055 2265 SCADVICE EQU SCADBSCT+2 2 —_ ADDRESS OF DEVICE ALLOC TABLE 22660000 (ow 1 SO 
22130000 2266 * 22670000 (UH 730 SARE 
22140000 | 14 0057 2267 SCADSEUA EQU SCADVICE+2 2  — ADORESS SEU MEMBER CHAIN 22680000 um 
22150000 0059 2268 SCADSEUQ EQU SCADSEUs+2 2 SEU QUEUE HEADER 22690000 COs) 0S 
22160000 0059 2269 SCAIPLW6 EQU  SCADSEUQ 2 ~~—sTPL WORK AREA 22700000 OO 232) SAF 
zzi70000 | 15} 2270 *® 22710000 aut 
22180000 005A 2271 SCADSLOG EQU SCADSEUQ+] 1 SYSLOG ASSIGNED INDICATOR 227720000 up tn 
32190000 OOEO 2272 SCANPRT £QU X‘EO° SYSLOG ASSIGNED TO PRINTER 22730000 oy" 
227200000 | 16 0010 2273 SCAMERT EQU X‘10° . SYSLOG ASSIGNED TO WORK STATION 22740000 Od 227 SM 
22210000 274 * 22750000 Oc 228 SAC 
72220000 0058 2275 SCASYS] EQU SCADSLOG*] 1 | SYSTEM CONFIGURATION BYTE 5 72760000 OM 2) SL 
A 227230000 | 17 0080 2276 SCAHFERR EQU X‘80° . "80" - ERROR IN HISTORY FILE 22770000 OW 25 SAS 
22240000 0040 2277 SCARIPLC EQU  X‘40° - __X°40" - IPL-PROCESSING COPPLETE (ota 231 SAE 
7270000 0020 2278 SCAVER EQU X‘20° %°20° — IPL-OVERRIDE RECEIVED T2000 Com 2352S 1 
zz260000 | 18 0010 2279 SCARIPL QU X"10" X"10" ~ IPL-SIGN ON COMPLETE 27800000 OO 23) OAS 
27770000 X°O3" - IPL-FILE REBUILD Cond 23 St 
77780000 COOL 235 SE 
A 22290000 | 19 - CONFIG RECORD LOCK [R31 ay" 
77300000 X'O1" - PREPARE REQUEST ISSUED OO 2 SH 
22310000 77a * Z780000 (8) 238 SESE 


EOPR 7A - AN STEP. - COND 


9 
ERR LOC ET OME AR SN SRE 


22400000 
22410000 
22420000 
22430000 
22440000 
22450000 
22460000 
22470000 
22480000 
22490000 
22500000 
22510000 
22520000 
22530000 
22540000 
22550000 


SUCK! 


AL2CNIPSPTPL 


0961 4091 (5C#0300 EQU 


0961 B8 40 70 TN SCADCPS1(, XR2), SCAMALL 
ry 


0964 F2 90 04 


OSC 2285 SCASYS2 EQU SCASYS1+1 1 SYSTEM CONFIGURATION BYTE 6 22860000 P 
EQ X'80' : X'80' - COMM TASK BEING ASSIGNED 


0020 2268 SCAHLDP EQU  X'20' 
0010 2289 SCAN 


X'20" = HIGH LEVEL DEDICATION 
X'10" ~ IPL_- STARTUP PROC |R4/ 
K'O8" - SYSTEN DATE RECEIVED 
X‘04' ~ DOMMYY DATE WORLD TRADE 22920000 4 
X'02' - MMDDYY DATE DOMESTIC 
Xx  Y¥MMO0 DATE SPECIAL 


0004 2291 SCAMITC EQU x'04 


2295 * SYSTEM IPL DATE - IN PACKED FORMAT CYY MY DD) 


005D 2296 SCADYEAR EQU  SCASYS2+1 1 SYSTEM YEAR 22970000 
06 OSE 2297 SCADYNTH EQU SCADYEAR+] 1 SYSTEM NONTH 22980000 [06 
OOSF 2296 SCADDAY EQU  SCADMNTH+1 1 SYSTEM DAY 22990000 
O05F 2299 SCADDATE EQU ADDR 3 SYSTEM DATE CYI"0) 23000000 
0 2300 * 23010000 
0060 2301 SCADCTUT EQU  SCADDATE+] 1 COUNT OF USER TASKS IN SYSTEM 23020000 
02 * 23030000 
05 0066 2303 SCARDVOL EQU SCADCTUT+6 6 — DISKETTE VOLUME LABEL 23040000 PS 
2304 *® 23050000 
0067 2305 SCARDFMT EQU SCARDVOL+] = 1 DISKETTE PHYSICAL FORMAT 23060000 
0080 2306 SCAMIPLA EQU  X‘80' . X'80' - IPL AUTOLOADER FLAG {R31 23070000 JY 
2307 _* 0 - IPL DISKETTE, AUTO-YES 23080000 
2308 * 1 - TPL DISKETTE, AUTO-NO 


0040 2309 SCAMZMFM EQU X‘40' . X"40' - 2 SIDED - MFM RECORDING 


0020 2310 SCAMZFN EQU X‘20' 7 X‘20' - 2 SIDED - FM RECORDING 
0010 2311 SCAMIFM EQU . X‘10" - 1 SIDED - FM RECORDING 
0008 2312 SCAM1024 EQU ‘ X'O8* - RECORD SIZE = 1024 
0004 2313 SCAN0512 EQU . X*04' - RECORD SIZE = 512 
0002 2314 SCANO256 EQU . X02‘ - RECORD SIZE = 256 
0001 2315 SCAMO128 EQU 5 X‘O1* ~ RECORD SIZE = 128 
2316 *® 
0068 2317 SCADKLRC EQU SCARDFMT#4 = 4 DISKETTE VOLUME LRC CHARACTERS 23180000 
2318 * 23190000 
0060 2319 SCAIPLUK EQU  SCADCTUT : TPL_WORK AREA (START) 23200000 
0068 2320 SCAIPLW] EQU — SCADKLRC . TPL WORK AREA CEND) 23210000 
2321 * 23220000 {14 
0060 2322 SCADNTUB EQU  SCADKLRC+2 2 MASTER CONSOLE TUB ADDRESS 23230000 
006F 2323 SCADPTUB EQU SCADMTUB+2 = 2 SYSTEM PRINTER TUB ADDRESS 23240000 
2324 *® 23250000 
Ba * COMMAND PROCESSOR DISPLACEMENTS AND BIT MASKS 23260000 
2326 * 23270000 
0070 2327 SCADCPS! EQU SCADPTUB+] 1 SWITCH BYTE ONE 23280000 16 
0080 2328 SCANCPL EQU X‘80" -__ STOP COMPLETE MESSAGE SENT 23290000 
0040 2329 SCAWLL EQ X‘40° - NO JOBS CAN BE INITIATED 23300000 
0020 2330 SCANBJE EQU X‘20° - SPOOL URITER/J08Q £0J REQUIRED 23310000 
0010 2331 SCAEBE EQ X10" -__VS0F SEND £0) COMPLETION CODE 23320000 
0008 2332 SCASST EQ X‘08" - SPOOL URITER HAS BEEN STARTED 23330000 
5 0004 2333 SCAUQS EQU X‘04" - J0BQ HAS BEEN STARTED 23340000 fd 
0002 2334 SCANSEC EQ XK‘02" +. SECURITY IS ACTIVE 23350000 
000] 2335 SCAMERP EQU X‘O1" - CALL 1/0 ERP TRAGIENT 23360000 
3% * 23370000 #19 
0071 2337 SCADCPS2 EQU SCADCPSI*1 SWITCH BYTE TWD 23380000 
0080 2338 SCATKEYS EQU X*30" - KEY SORT ALL FILES AT SHUT DON 23390000 
vO 
025 


ERR LOC OBIECT CODE 420k STMT SOURCE STATENENT 


0005 32 UOT WOU LETH 
0005 33 EFL a BOOT EFFECTING ONPOT LENGTH 


PR MMSCPR - MAIN STORAGE IPL - 


ERR LOC OBJECT CODE 


ADDR STMT 


0040 2339 
0020 2340 
0010 2341 
0008 2342 
0004 2343 
0002 2344 
0001 2345 
2346 
0073 2347 
0076 2348 
2349 
0077 2350 
2351 
0078 2352 
0080 235. 
0040 2354 


2361 


Bn 
OTA 2372 

2373 
0078 2374 
007D 2375 
OO7E 2376 
OO7F 2377 


TE WOR AR eer F is 
16 4135 */* GET SPACE FOR A JOB CONTROL BLOCK. IT WILL BE USED IN ATTACH OF */ 


40870000 4136 */* AUTOCALL TASK AND AS A WORK AREA FOR AUTOCALL TASK FIND. &/ 
OUTING DOBOOUC RRRRARRRAR RANA ARIA IRIN RERRARARARARRARERARAR RIERA 
Tt 40890000 17 
40900000 3 
x 0910000 G BI 
4008 4920000 118] 0993 F4 00 06 svc SEN,O © ASSIGN REQUEST 0903 F2 04 OA 
4008 40930000 OC _AL2CJCBLLINTH) ASSIGN LENGTH 
IN / 0940000 999 * i 
4009 40950000 19 4144 *** END OF EXPANSION ®* 
4145 % —_XR1->JCBLLNTH~101:112)=XR1->VARCICBLUNTH=1)(1: 112) 
0960000 4146 * “XRI->VARCICBLUNTH-1); /* RESET JCB 9 an478*/ 
0) 
E26 
7 09/11/81 12/06/61 “ *ISCPR MSCPR - 
ERR LOC OBJECT 
N BYTE 6 22860000 0040 2339 SCAMCOUT EQU x'40' . CONSOLE READY TO OUTPUT MESSAGE 23400000 | 02 
FING ASSIGNED 22870000 0020 2340 SCAMHELP EQU  X'20' . HELP FEATURE ACTIVE (R31 23410000 
ALE CHECK BBO000 SCANCPAF » C. P. WSQS ASSIGN FAILURE 1R3] 
DEDICATION 22890000 0008 2342 SCAYSBL EQU x'08' . REBUILD ~- EXECUTE REBUILD 03} 
JP PROC |R4/ 22900000 0004 2343 SCAMDELE EQU X'‘04' - REBUILD - DELETE FILES IN ERROR 
RECEIVED 22910000 0002 2344 SCANTOLD EQU = X‘02' . REBUILD - EXAMINE OLD FILES ALSO 23450000 
WORLD TRADE 22920000 0001 2345 SCAMTELL EQU X'O1' . REBUILD - DISPLAY LABLES IN ERROR 23460000 | 04 
DOMESTIC 22930000 2346 * 23470000 
SPECIAL 22940000 0073 2347 SCADMGOI EQU SCADCPS2+2 2 MESSAGE ORDER INDEX ADDRESS 23480000 
22950000 0076 2348 SCADSECA EQU SCADMGOI+3 3 SSS OF SECURITY FILE 23490000 | 05) 
22960000 2349 * 23500000 
22970000 0077 2350 SCADABCT EQU SCADSECA+] 1 AUTO-BUFFER DISABLE COUNT [R3] 23510000 
22980000 2351 * 23520000 | 96 
22990000 0078 2352 SCADXTRA EQU SCADABCT+1 1 EXTENDED TRACE INDICATORS IR4] 23530000 
23000000 0080 XTRA EQU X'S . EXTENDED TRACE ACTIVE 
23010000 0040 2354 SCAYLOTX EQU  X'40' . EXTENDED TRACE LINE O CINTRA) 23550000 | 07 
IN SYSTEM 23020000 0020 2355 SCAMLOTR EQU  X‘20' LOG TRACE LINE O CINTRA) 23560000 
23030000 2356 * EQ xX‘10° ‘ RESERVED 23570000 
L 23040000 2357 * EQU x‘08' . RESERVED 23580000 | 08} 
23050000 2358 * EQU X‘04" ._ RESERVED 23590000 
RMAT 23060000 2359 * EQ X'02' i RESERVED 23600000 
ER FLAG {R31 23070000 2360 * EQ x'OI" . __ RESERVED 23610000 | 09 
:, AUTO-YES 23080000 2361 * 23620000 
, AUTO-NO 73090000 0079 2362 SCADMCFG EQU SCADXTRA+] 1 DATA MANAGEMENT OPTIONS {R4] 23630000 
M RECORDING 23100000 0080 2363 SCAMDREC EQU X‘80' » DELETED RECORD CAPABILITY IR4] 23640000 | 10 
1 RECORDING 23110000 0040 2364 SCASPARK EQU  X‘40' . SEQ. PROC. ADDED REC. BY KEY (R6} 23650000 
1 RECORDING 23120000 2365 * EQU X'20° : RESERVED 23660000 
= 1024 23130000 2366 * EU xX‘lO' ._ RESERVED 73670000 | 11 
= 512 23140000 2367 * EQU§ x'08' ‘ RESERVED 23680000 
= 23150000 2368 * EQU x'04' ; RESERVED 23690000 
= 128 23160000 2369 * EQU. x'02° ‘ RESERVED 23700000 | 1 
23170000 2370 * eq x‘o1' .__ RESERVED 23710000 
CHARACTERS 23180000 2371 * 23720000 
23190000 GO7A 2372 SCADPN2K EQU SCADMCFG+] 1 NUMBER NUCLEUS 2K BLOCKS {R4] 23730000 | 1 
) 23200000 2373 * 23740000 
23210000 007B 2374 SCADMCTR EQU SCADON2K+1 1 COUNTER OF MRT JOBS ACTIVE 23750000 
23220000 0070 2375 SCADSCIN EQU SCADMCTR+2 2 ADDRESS SYS CONSOLE IMAGE MATRIX 23760000 | 14 
DORESS 23230000 OO7E 2376 SCADMID® EQU SCADSCINe! 1 MESSAGE ID # FOR SYS CON REPLY 23770000 
DDRESS 23240000 007F 2377 SCADRSCZ EQU SCADMID™+1 1 SIZE OF RESOURCE SECURITY FILE 23780000 
23250000 0080 2378 SCADSECZ EQU SCADRSCZ*1 1 SIZE OF SECURITY FILE 23790000 | 15) 
23260000 0082 2379 SCADCPWa EQU  SCADSECZ+2 2 COMMAND PROCESSOR WORKAREA ADDRESS 23800000 
23270000 2380 * 23810000 
23280000 0084 2381 SCACSATB EQU SCADCPUA+2 2 CONTROL STORE ALLOCATE TABLE 23820000 | 16 
ENT 23290000 2382 * 23830000 
D 73300000 0085 2383 SCADXSLT EQU SCACSATB+1 1 [2 SLOT NUPBER (HEX) 1R31 73840000 
QUIRED 23310000 OO8A 2384 SCADSLOT EQU SCADXSLT#5 5 12 SLOT NUMBER DECIMAL {R31 73850000 | 17 
W CODE 23320000 2385 * 23860000 
TARTED 23330000 0088 2386 SCADNQNT EQU SCADSLOT=1 1 MESSAGE Q COUNT 23870000 
23340000 Ber * Z3890000 } 10 
73350000 O08C 2388 SCADCSP1 EQU SCADNWT+1 1 CSP > MSP INTERFACE BYTE 73890000 
23360000 0080 2389 SCNTI255 EQU  X‘80" . HUICR ATTACHENT ON SYSTEN {R21 73900000 
73370000 0040 2390 SCAMARNR EQU X40" - 12 DISKETTE ATTACHENT R31 Z3910000 | 19 
73380000 By * fQU. ‘20° - RESERVED FOR ADOR COMPARE DUMP 23920000 
HT DON 73390000 0010 2392 SCARACDV EQ X"10° ~ ERSOR OF DWP - PARTIAL DUP TAKEN 73930000 


PRE «10 WO9/T1/81 12/08/81 02:16 


430 CPOPADRL 600 © CPUPLAR“2 «=| OPER 1 RIGHT-HWD ADDRESS 
OCIA 431 CPOPL? QO CPUPAI+1 = OPER 2 LENGTH 

Ol 2 CROP? GS CRU? CORR 2 RAT ADRESS 
OW G3 CPPUG BR COPA] «= GPE 3 LENGTH 

CO 434 CPUPAIRS GAS CPOPLNG+<2 ——OPERND 3 RIGHT-H0D ADURESS 
om Ole i Come] a « LECH 
GHZ? Gb CPOPATRS TRO CROP? ©=—GPERAND 4 ROGHT-A90ND ADDRESS 
2437 POPS NG CROPRDRS END OF GREWNND ENTRIES 


DISPLAY aOZ2 TIBOR | 
careaneo 
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23400000 
23410000 
23420000 
23430000 
23440000 
23450000 
23460000 
23470000 
23480000 
23490000 
23500000 
23510000 
23520000 
23530000 
23540000 
23550000 
23560000 
23570000 
23580000 
23590000 
23600000 
23610000 
23620000 
630000 

| 23640000 
| 23650000 
23660000 
23670000 
23680000 
23690000 
23700000 
23710000 
23720000 
23730000 
23740000 
23750000 
23760000 
23770000 
23780000 


st 
at . 


0906 4193 MSCA0450 EQU 
4194 *% —NEPACTSK*+SATISSIZ(1: 1)=VARCNIPACTSK+SATMGSI2)C1:1)4X1;. /* 
ALC _NIPACTSK*SATNSSIZ(001), X1 


eli 


CADCSP2 EQU —SCADCSP1+1 


0080 2399 SCAMLGER EQU  X'80' 


0020 2401 SCAMFORX EQU  K'20' 
0010 2402 SCAYFAIL EQU  X'10' 
0008 2403 SCAMICRI EQU X‘08' 
04 ® Ww x04" 
0002 2405 SCAMICR2 EQU X'02' 
2406 * EQ X'‘o1' 

2407 * 


OBE 2408 SCADCSP3 EQU SCADCSP2+1 


0080 2409 SCAMILCA EQU X'80' 

0040 2410 SCASCB EQU X'40' 

0020 2411 SCAMCFER EQU § X‘20° 
2412 * Equ. X'10° 
2413 * EQU X'08' 
2414 * EQ X'04' 

0002 2415 SCADTLOK EQU X‘02' 
2416 *® eq X‘01' 
2417 * 


0090 2418 SCADSNAT EQU  SCADCSP3+2 


2419 * 


0091 2420 SCADLIN® EQU  SCADSNAT+1 


2421 * 


2422 * NOTE: THIS BYTE DESCRIBES HOW THE COMMUNICATION HARDWARE IS 


IPACTSK $47 088, x2 
side lnaaeclle ae 12)=KR2- ae wate PARM LIST 


. DISPLAY ADOR COMPARE DUMP MESSAGE 
ADDRESS cE UMP WAS TAKEN 


$/32 MODE LOG PRINTER ERROR 
«__PRINTER TRANSLATE FEATURE 
+ FORTRAN EXECUTION SUPPORT 
« LAST 2K OF NUCLEUS ASSIGNED 
+ _MICR SUBROS SSP SUPPORT 
«RESERVED 
+ (ICR SUBR25 SSP SUPPORT 
«__RESERVED 


1 CSP < > MSP INTERFACE BYTE 


NACA CONTROLLER ATTACHED 
WSC ‘B' CONTROLLER ATTACHED 


IR4| 
1R4| 
1R8| 
IR4| 


1R4] 


1R6| 
1R6| 


- CONFIG RECORD TUB COUNT ERROR (K/| 


-__ RESERVED 
. RESERVED 
. RESERVED 


«TERMINAL UNIT BLOCK CHAIN LOCKED 


+ RESERVED 


2 _TCB ADDRESS OF SNA TASK 


1 COMMUNICATIONS CONFIGURATION 


2423 * DEFINED. BITS 0-3 DESCRIBE “OMMUNICATION LINES. BITS 4-7 
2424 * DESCRIBE AUTOCALL LINES. BITS 0-7 DESCRIBE X.21 LINES. 


2425 * FOR EXAMPLE: 
2426 * 
2427 * 
2428 * 
2429 * 


2430 * AUTOCALL AND X.21 ARE MUTUALLY EXCLUSIVE. 


2431 * 
0080 2432 SCAMLINI EQU X"80" 
0040 2433 SCAMLINZ EQU X40" 
0020 2434 SCAMLINS EQU  X‘20° 
0010 2435 SCAMLING EQU  X‘10° 


0002 2439 SCAMACU3 EQU X‘02" 

0001 2440 SCAMACUS EQU  X*O1" 
2a * 

0088 2442 SCAKZ11 EQU X"S3° 

0044 2443 SCAAZ12 EU ‘44° 

0022 2404 SCAK713 EW X*72" 

OOl1 2445 SCAK214 EQ X11" 
2486 * 


- CORAUN.ATIONS ON LINE 1 
- CORPUNICATIONS ON LINE 2 
- CORPUNICATIONS ON LINE 3 
. COMMUNICATIONS ON LINE 4 


AUTOCALL ON LINE 3 AND COMMUNICATIONS ON LINES 
1, 2, AND 4 WOULD BE X‘D2'. 
X.21 ON LINE 1 AND COMMUNICATIONS ON LINE 2 
WOULD BE X‘C8". 


1R3| 
1R6] 
1R61 


OALG 80 07 28 OBA3 


ERR LOC OBJECT CODE 


ol MSCPR MMSCPR - MAIN STORE 


( 


( 
( 


01 08 05 WC SFMOOLOAC2, XRL), SFRODLIKC, KR) 7* SET LOAD DOR aiM76*/ 
OAI6 80 07 78 OBA3 JCBOPROGC8, HAZ), MIPAGCZL 7 X.21 TASK? ane" 
OAIB F2 01 03 NtpacUDS (We TE NOT aera 


OAIE 7A 40 OC SATFLAG(,XR1),SATREAL /* X.21,SET LOGICAL=REAL aa478*/ 
OA21 F401 10 SVCKIENT, QREFRESH 7* ATTACH AUTOCALL/X.21  aa478*/ 
OA24 OCD NIPSSATC 7 *7 
4243 * NIPVORKEREGCXR1); 7* STORE RETURN CODE */ OASB F4 01 10 
OA26 34 01 0CC1 4244 ST _NIPWORK, XR1 47 OASE OCFA 
4245 "TF NIPUORKCL:1) = 0 THE 7* DIO ATTACH FAIL? */ 
OAZA 3D 00 OCCO 4246 CLI NEPWORK-001,0 4118 
4247 * 00; 7* YES, ERROR CONDITION EXISTS */ 
OAZE F2 01 07 2049 4g 


i MSCPR MISCPR - MAIN S 
| 
ERR LOC OBJECT CODE 
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GE 23940000 0095 2447 SCADREOJ EQU NY+4 4 END-OF~J0B SVC 2aagoo00 | 02 
\ : OJ WORK AR 


AREA 
. START OF END-OF-JOB SVC 


24510000 | 03 


24530000 


0097 2453 SCADTBUF EQU SCADREOJ+2 © 2 COMMUNICATIONS BUFFER SIZE 24540000 | 04 


Ral 24010000 24550000 

Ral 24020000 

R8| 24030000 24570000 | 05 

RAI 24040000 
24050000 

RAI 24060000 OO9A 2459 SCADTRSZ EQU SCADSQS+#1 1 TRACE BUFFER SPACE (1/4K) 24600000 | 06) 
24070000 2460 _* 
24060000 0098 2461 SCADSNA] EQU  SCADTRS2+1 1 SNA BATCH TASK USE COUNT 1R3) 24620000 
24090000 | 07 009C 2462 SCADSNA? EQU SCADSNAl*1 1 SNA REMOTE TASK USE COUNT —1R31 24630000 | 07 

R6| 24100000 0090 2463 SCADSDLS EQU SCADSNA7+1 1 SOLC SECONDARY TASK USE COUNT 1R31 24640000 

R6! 24110000 QO9E 2464 SCADSDLP EQU SCADSDLS*1 1 SOLC PRIMARY TASK USE COUNT [R31 24650000 

Ri | 24120000 | 08 2465 * 24660000 | 08} 
24130000 OO9F 2466 SCADCFG7 EQU SCADSDLP+! 1 _HISTORY FILE CONFIGURATION {R31 24670000 
24140000 0080 2467 SCAYHRP EQU  X‘80° . _ HISTORY-AUTOMATIC WRAP INDICATOR 24680000 
24150000 2468 * 1 - AUTO WRAP HISTORY FILE 24690000 | 09 

D 24160000 2469 * 0 - NO HISTORY AUTO WRAP 
24170000 0040 2470 SCAMHDEL EQU  X*40° .  HISTORY-QVERFLOW FILE DELETE 
24180000 | 1 2471 * 1 - DELETE OVERFLOW FILE 24720000 | 10 
24190000 2472 * 0 - DONT DELETE OVERFLOW FILE 
24200000 0020 2473 SCAHFITT EQU X20" .  HISTORY-REFORMAT OVERFLOW FILE 24740000 
24210000 | 11) 2474 * 1 ~ REFORMAT OVERFLOW FILE a IPL 24750000 | 11 
24220000 2475 * 0 - DONT REFORMAT OVEFLOW FILE 24760000 
24230000 0020 2476 SCAYHALC EQU  X'20" .  HISTORY-ALLOCATE OVERFLOW FILE 24770000 

4-7 24240000 | 1 2477 * AFTER IPL 24780000 

. 24250000 0010 2478 SCAYFLOC EQU  X'10' ._ HISTORY-QVERFLOW FILE PREFERRED 24790000 
24260000 2479 * LOCATION 24800000 

INES 24270000 | 13 2480 * 1 - SPINDLE Al 24810000 | 13} 
24280000 2481 * 0 - SPINDLE A2 24820000 

2 24290000 OOOF 2482 SCAYHVSZ EQU X‘OF® ~ _HESTORY-OVERFLOW FILE SIZE (BITS 24830000 
24300000 | 1 2483 * 4-7 (X‘OF ‘D> IN MULTIPLES OF THE 24840000 | 14 
24310000 2484 * HISTORY FILE (1-8). 24850000 
24320000 2485 * 24860000 
24330000 | 1: OOA2 2486 SCADRSEC EQU SCADCFG7#3 3 “RESERVED FOR SECURITY USE 24870000 | 15 

R3| 24340000 2487 * 24880000 

RG! 24350000 OOA4 2488 SCADHFIK EQU SCADRSEC+2 2 SECTOR OFFSET OF VTOC ENTRY: R31 24890000 

R61 24360000 | 1 2489 * . HISTORY OVERFLOW FILE, #HISTOVF 24900000 | 16 
24370000 2490 * 24910000 

R6I 74380000 0OAS 2491 SCADMRKa EQU  SCADHFLK+2 ~~ 2” ADURESS COMPARE WORKAREA ADDR 1R3/ 24920000 

R61 24390000 | 17 2492 * 24930000 | 17) 

P61 24400000 OOA7 2493 SCADCFGS EQU SCADURK@+1 1 SSP CONFIGURATION 1R31 24940000 

RSI 24410000 2494 * Eq x‘s0° ~ RESERVED 24950000 
2s420000 | 11 0040 2495 SCATRUSP EQU  X‘40° . USE UDRK STATION PRINTER 1R61 24960000 | 15} 

PS} 24430000 2496 * fq x'20" . RESERVED 24970000 

RSI 24440000 2497 * fw” x*10° ~ RESERVED 24980000 

PBI 24450000 | 1 2498 * EqU x"08" . RESERVED 1R8{ 2990000 | 19 

RBI 24460000 2499 * equ x04" . RESERVED 75000000 
= 

: 0 
028 
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ERR LOC OBJECT CODE S@DR SIT SOURCE STATEMENT 


+8 * RECOMENOED * THIS PART OF THE MORGARDA UMN BE USED BY COW = * aw | | 
“* i * } BES * csespoen 104 
45 


OR5000D 338 * OR QUIPUT TO “CROC TS390000 1, 
(2A 539 CROWS EQ CRCUSU+2 = ADDRESS. OF SE SUBSTITUTION DATA 0000 | 

OSORIO | 0006 Sa) CADULEN BQ  ONDUESHOPONCD+1 LENGTH OF PRAM LIST e000 | | 

ommacs | 33 105 


ict Dh ten Ae tina ae Lt nie ctaacll Jes ew 


6 azar yn " 42880000 
4288 KJ KRRARARARAERAARAERRARRRERARERRARERARRERRRRRERERARRRRARERARRER RAR RIERA J 42890000 
109 */* CALL AROKRK 10 START SGML. TASK 7 2900000 


* {RWRAERRRRERRIRRERARR RR RAR RISE RERRRRERERRERRRA AIR RRRERARRRRRRR / 42610000 1 
az. */* */ 
GEN: TART ThA 


OARS 75 02 82 


OASC 8C_07 2A OBB3 


OAB1 F4 01 10 
OAD4 OCC4 


OASB F401 10 


SVC SVCXIENT, QREFRESH 42940000 | 1 
OASE OCFA 42950000 


OA96 5F 07 6B 68 


4296 * = GENCTITLE ‘MMSCPR ~ PROCESS FOR REMOTE WORK STATIONS‘); 42970000 | 1 
OAGO 4297 MSCAOS#O EQU * 
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ERR LOC OBJECT CODE Aol 


24480000 2501 * FQU. Xx‘Ol' . RESERVED 
90000 2502 © = 
24500000 OOAS 2503 SCADCFGS EQU  SCADCFGS+1 1 REMOTE CONFIGURATION BYTE  IR3I 
24510000 0080 2504 SCAYRWSA EQU  X'80" . REMOTE 2RK STATIONS ACTIVE 004 
24520000 2505 * FOR THIS IPL 002 
24530000 06 SCAMRWAV EQU  X'40' . AUTOVARY ONLINE AT IPL 
24540000 | 04 0020 2507 SCAMRUNV EQU  X'20' . VARY ONLINE NOT ALLOWED 
4550000 0010 2508 SCAMRWET EQU  X'10' ._VARY_ON_IN PROCESS BY #RWVY 
74566000 (0008 2509 SCAYRUSY EQU  X‘08" . RWS HAS SET ‘SCAMRIN® 1R71 
24570000 0004 2510 SCAMSWAP EQU  X'04' . REMOTE TASK 1S SWAPPABLE 
4580000 0002 2511 SCAYRCFG EQU X'02' ._AT LEAST ONE REMOTE CONFIGURED 
74590000 0001 2512 SCAYRWCF EQU  X‘Ol' . AT LEAST ONE REMOTE CONFIGURED ooC 
24600000 2513 * FOR IPL AUTO VARY ONLINE 
24610000 2514 * 
24620000 OOAA 2515 ‘SCADTKS2 EQU  S5ADCFG9+2° 2” DISK SECTORS PER TRACK TR31 
24630000 2516 * 
24640000 OOAB 2517 SCADCFGS EQU SCADTKSZ+1 1 SECURITY FEATURES 
24650000 0080 2518 SCAYRSEC EQU  K‘80" ~ RESOURCE SECURITY 
24660000 0040 2519 SCAYBADG EQU X'40' . BADGE READER SECURITY 
24670000 2520 * EQ X'20' .__ RESERVED 
24680000 Dal * fQU. x‘l0° RESERVED 
24690000 2522 * EQU K‘08' : RESERVED 0c 
24700000 2523 * EQU X‘04' .__ RESERVED 008 
24710000 2524 ® EQ X'02' R RESERVED 004 
24720000 2525 * FQU. x‘ol' . RESERVED 002 
24730000 2526 * 001 
24740000 OAC 2527 SCADMDBT EQU- SCADCFGS+] = =. ~WSOM BRANCH TABLE CLOW SIDE) R21 000 
PL 24750000 OOAD 2528 SCAMWDBO EQU SCADWDBT+1 © -~~> @WDBO STORAGE ADDRESS [R21 000 
: 24760000 OOAF 2529 SCAMWDB1 EQU SCADWDBT+3 — -~-> *WDB1 STORAGE ADDRESS —_1R31 000: 
24770000 0087 2530 SCAMIDB2 EQU SCADMDBT+5 —---> DBZ STORAGE ADDRESS |R31 000 
24780000 0083 2531 SCAWDMDM EQU SCADMDBT+7 © ---> @DMDM STORAGE ADDRESS — | R4/ 
24790000 0083 2532 SCASICDM EQU — SCAMDWOM ~~-> SICDM STORAGE ADDRESS I R4I o0c: 
24800000 2533 * THIS ADORESS WILL BE THE ADDRESS 
24810000 : 2534 * OF ICS DATA MANAGEMENT IF ICS 
24820000 2535 * IS ACTIVE, OTHERWISE IT WILL BE 008 
24830000 2536 * THE ADORESS OF THE WORK STATION 
THE 24840000 | 14 2537 * DATA MANAGEMENT ROUTER, #DW0M. 0021 
24850000 0085 2538 SCAMWDB3 EQU SCADWDBT*9 | -—-> S483 STORAGE ADORESS —1R4| oor 
24860000 2539 * EQU SCADDBT+11 RESERVED 000: 
24870000 0087 2540 SCADMDBR EQU SCADCFGS*12 12 WSOM BRANCH TABLE (HIGH SIDE) 000: 
24880000 2541 * 000; 
24890000 3 RESERVED 000 
24900000 
24910000 1___COPPIAND PROCESSOR SUITCH 4 IRB! 000 
24920000 . VERY HIGH LEVEL DEDICATION 
24930000 4 000 
24940000 
24950000 OO 
24960000 000! 
24970000 000: 
24980000 000 
81 24990000 000 
25000000 
=] 75010000 
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—y 0030 352 CPUSIKUN QU | OPFIRER+) START OF TMPUT AREA CIN 7 UZ 


On 
fee oe DOR STMT SOURCE STATETENT 
, 

‘Os 


Bera tt e a) 
wn | | G00 596 CPINFDTA EU CISD ENPUT FIELD 1 START CHOOD | 
(os OOF? 595 CPINPDTE GQ) CPINPDTA+119 INPUT FIELD 1 ED mono (03 
rer sano | | OOFA S96 OPINPSTD SU CPINPUTE*3 INPUT FIELD 2 - STATUS ComeW, yr | 
* TOD || OGF8 S97 CPINPEND EQ) CPONPDTAYIZ0 COMED DATA GMD ~ 7 ORD | | 
osm 104 SOFA S98 CPSTTa QU CPONPSTD «=| STATS QUEUE ELEMENT AuDRESs asveponp |O4 
i q 


i 


LID RRMA EIA CTT GAOT COE RRR KEE EEE EEE pay 


ida TVS PE PUNE PUT Ew ON bey We OT OP ff Ve POLIS 
ABS XR a79 9 OADO F2 01 09 
16 7* STORE MESSAGE IN WORK AREA */ 43400000 {16 
4180 
“341 * GEN; 7* TSSUE IN AUTO VARY NESSAGE */ 43420000 OAD3 4C 00 6B 0273 
17] 0891 F401 10 4342 SVC SVCXIENT, QREFRESH 43430000 17 
0A94 OCC4 ORNS 4343 OC _AL2(NIPaCNCUD 43440000 
4344." END; OADS F4 00 1D ‘ 
4345 *  XR1~>SCATPLW1C1:8)=XR1->SCAIPLW1(1:8)-XR1->SCAIPLWIC1:8); /® RESET®/ S} ADB 10 OADB - 
OA96 4346 SCA058O EQU * 4186 ! 
GANG 4347 Meca0560 FQU * 4186 #3480000 ‘ 
13] 096 5F 07 6B 68 4348 SLC SCAIPLW1C008, XR1), SCAIPLW1C, XR1) 4186 43490000 {19 
4349 * _XR1->SCARDVOL(1:6)=C ‘IPLIPL*‘; /* INIT VOLUME LABEL SAVE AREA*/ 43500000 OADC 
OANA 4C 05 66 0845 4350 (NT SCARDVOL (006, XR1), MSCaia002 4187 43510000 M OAC ¢ 
¢ 
£30 
) VO9/117681 12708781 02:16 #ASCPR MMSCPR - MAIN STORAGE 
ERR LOC OBJECT CODE ADD 
RB| 25020000 
25030000 
540000 7 ® EQ x*60" . RESERVED 25580000 
25050000 | 0: 0040 2558 SCAMSPRK EQU X'40" . 01 - DISK DM (SPARK) 25590000 D3 
25060000 0020 2559 SCAMLSIF EQU _X'20' 02 - MLCA SIF 25600000 
25070000 2560 * EW X'10" . 03 ~ RESERVED 25610000 
25080000 | 04 2561 * equ X'08" . 04 ~ RESERVED 25620000 [4 
25090000 2562 * EQU X'04' ._05 - RESERVED 25630000 
25100000 2563 * EQqU x02" ~ 06 - RESERVED 25640000 000 
25110000 | 05) 2564 *® equ Xx‘o1' . 07 - RESERVED 25650000 D 000: 
25120000 2565 * 25660000 000 
75130000 00C2 2566 SCADXMI2Z EQU  SCADXMID ~ EXAM 105 6-15 1R61 25670000 000 
25140000 | 06 2567 * EqQU§ x‘80' . 08 - RESERVED 25680000 6 
25150000 2568 * EQU X'40' 09 - RESERVED 25690000 000: 
75160000 2569 * EQ X'20" ~ OA ~ RESERVED 25700000 
25170000 | 07; 2570 * equ x‘19" . 0B - RESERVED 25710000 P 000 
25180000 2571 * EQU x‘08' OC - RESERVED 25720000 008 
55190000 212 * eq x04" ~ OD — RESERVED 25730000 
25200000 | 03} 2573 * EQU X‘02' . _0€ - RESERVED 25740000 Ps 
25210000 2574 * EQU X‘O1' .__OF - RESERVED 25750000 
25220000 2575 * 
25230000 00C3 2576 SCADCPS3 EQU SCADKMID+] 1 COMMAND PROCESSOR SWITCH 3 IR4] 
25240000 0080 2577 SCASTOPS EQU X'80' .___ STOP SESSION ACTIVE 
25250000 0040 2578 SCAMDCKF EQU  X‘40° .  REBUILD-DELETE CHECKPOINT FILES 0001 
25260000 0020 2579 SCAMRILP EQU  X'20" . _ INITIALIZE LINE PRINTER IR5| 
25270000 0010 2580 SCANIOCL EQU  X'10" . _MLCA IOCH LOADED 1R6 25810000 OOF 
25280000 0008 2581 SCAMLATF EQU  X"08" ~  NUCA ERROR ATTACH FAILURE [ROT 75820000 
25290000 | 11) 0004 2582 SCAMFUND EQU X'04" . DISKETTE HAS EXTENDED LABELS [R7| 25830000 | OOEC 
25300000 0002 2583 SCAMK21S EQU X'02' ._X.21 SWITCHED IR8I 25840000 
75310000 (0001 2584 SCAMDDDD EQU X‘O1" ~ DISKETTE HAS NON-SEQ. RECORDS 1R8] 25850000 
25320000 2585 * 75860000 
25330000 00C4 2586 SCADCFG6 EQU  SCADCPS3+1 1 _ CONFIGURATION BYTE 6 1R4] 25870000 
3 25340000 2567 * NOTe: THIS BYTE CONTAINS THE SARE BIT MASKS AS SYSTEM CONFIGURATION 75880000 
25350000 | 1 2588 * BYTE ‘CONDCFG6'". 25890000 {13 
25360000 0080 2589 SCACKRST £QU X‘80' -__CHECKPOINT/RESTART CONFIGURED 25900000 
25370000 B90 * EQ X‘40° > RESERVED 25910000 
25380000 | 141 0020 2591 SCAMSMFC EQU  X‘20" . SAF FEATURE CONFIGURED 25920000 #14 
25390000 0010 2592 SCADFA EQU  X'10° - __ OUP FILE ANALYSIS 1R5! 25930000 
25400000 0008 2593 SCAMIEXC EQU  X‘O3" ~ 1 EXCHANGE 1R61 75940000 ‘G00 
25410000 | 15} 0004 2594 SCAMSUBS EQU X‘04" .  SUBCONSOLE SUPPORT IR5{ 25950000 0001 
75420000 0002 2595 SCAMUASF EQU X'02' - SPOOL FILE ACCESS 1R51 25960000 0002 
75430000 0001 2596 SCAMEDON EQU X‘O1" ~ EXTENDED DISK DATA NAN. __IR6/ 75970000 0003 
75440000 | 16 m7 * 25980000 0004 
25450000 00C6 2598 SCADICSA EQU SCADCFG6+2 2 ‘ICS CORPMINICATION AREA ADOR Rai 25990000 0008 
25460000 799 * 0006 
25470000 | 17 OOCE 2600 SCADRFTR EQU  SCADICS +8 0007 
25480000 9008 
75490000 3 UOT CON CONFIGIRATION iI cn 
25500000 | 19 . LINE 1 CONFIGURATION (BYTE 0) 1R3} G00R 
25510000 - LINE 2 COMFIGRATION GBYTE 0) 11G1 0008 
75520000 OOD] 2605 SCADUDTS EQ SCADUCFG-5 «LINE 3 CONFIGURATION (BYTE 0) RoI 26060000 ‘000C 
25530000 | 19 OOCF 2606 SCADUDT4 EQU SCADUCFE-7 _ LINE 4 CONFIGURATION (BYTE 0) 186i 2s070000 0000 
25540000 2007 * NOTE ———> SEE COMPRESSED UNIT DEFINITION TABLE CWDTD 26080000 0008 
75550000 2608 * 25090000 ‘000F 
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OESCRIPTION FOR DEFINITION OF BITS 
030 


aor A FVIFRAAN JIT Wy iho, SITW tt wy) AWWW || NEe Wi Baad I MMOL TTT b/AL 
4179 43390000 OAD0 F2 01 09 4388 SNE (95080670 1] my 439 TF SCATPLIKECLS1)20 THEN PRESET STARTUP AGT 
K AREA */ 43400000 116 If NS rr) CLE SOMPLWKA),0 aH 
4180 43410000 4389 * XR1->TCBTSKID=VARCNUACPTCB+TCBNSCNT)(1:1); /®SET TASK {0 aidY (hy 4 ® —_SCATPLUKSI(:1)SS0ANIAP, 785, ST Fag i 
SAGE */ 43420000 OAD3 4C 00 6B 0273 4390 (WC sO TCBTSKID(, XR1), NUACPTCB+TCBNSCNT w GAD] | NDA wy JE HBcaNI60 bi] 
43430000 117) 4391 * GEN; cy 
43440000 4392 * TPOST MASK-TCBDWAIT 7* POST STARTUP TASK alld yay} 03 1 4 (AL SCAIPLAK, SOAIPUP i) 
43450000 OAD8 F4 00 1D 439. SVC SYCTPOST,O Wit GH REGCARID=ADORCAUGCPTRSTRTICN)s ORL IRC, TTC allt 
7® RESETR/ 43460000 118] OADB 10 OADB 4394 OC = ALICTCBDWAIT) ‘i OBIF 4445 MSCaO760 EQU * My 
4186 43470000 4395 *** END OF EXPANSION ** Go | Cts 46 UA NACPTCR+TCOTTC= AR oy 
4186 43480000 4396 * ENO; Git Ce 
4186 43490000 19 4397 * END; cc 4g * POST DEV-QHOTTC, PRENPT-W) INE RERILO ONE. ae 
AVE AREA*/ 43500000 OADC 4398 MSCH0670 EQU * CCC 4) SVC SWCPOST, 00 
4187 43510000 OADC 4399 MSCA0650 EQU *® q all Wd 0826 4450 DC ALLCQHOTTC) 
20 
eee aa ee ee ce ere 
E31 fh 
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D1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT RUBE COE ADDR STAT SOURCE. STATEMENT 
25560000 D 2609 * WITHIN THE INDIVIDUAL CONF IGURATIOI an O10 2663 SVCKTENT EQ. X10" TRASTVTTINR SER SPECIFIED 
1R6| 25570000 2610 * BYTES. EACH ENTRY IS TWO BYTES LOK, uu) OU 2664 SVCEKIT. EQU_X'11' ___TRASIEM/TRSHR EXT SiC 
25580000 2611 * BYTE O: SEE LABEL ‘UDTDCMF1' cy O12 2665 SVCGETP EQ X"12" ETN 
25590000 1 2612 * BYTE 1: SEE LABEL ‘UDTOCMF3* FOR SSH, so O13 2666 SVCFREEP EQ) X'13" FREE 
25600000 2613 * BITS 4-7 CX‘OF') MAP THE Dtlit HN OON4 2667 SVCTIN. EQ) X'14' ——__* TENA. TPER NEUE 
25610000 2614 *® ADDRESS (PRIORITY) OF THE LIE wa OOI5 2668 SVCTID. EOD X05" TATRA THER TELE 
25620000 [04 2615 * ENTRY. FOR EXAMPLE X‘80' HiT si OnN6 2669 STIR EU XG" * [TER THER REINER 
25630000 2616 * X'08'. SEE EQUATES BELO, Au GOUT 2670 SVCTHT EGU X‘17' ——_ATRINUS TWIT 
25640000 0008 2617 SCAMPREO EQU X'08' UDT DEVICE ADDRESS X'80' IR 7) OLE 2671 SVCKNTOF EQ "18" SET TRNGIET REA OBST 
25650000 1) 0004 2618 SCAMPR4O EQU  X'04' UDT DEVICE ADDRESS X‘40°' Nl won OLS 2672 SYCPOSTA EQ X'19" PST ME Si 
25660000 i 0002 2619 SCAMPR20 EQU  X'02' UOT DEVICE ADDRESS X‘20' (Rl wu GOLA 2673 SVCLOG EQ) X'IA' 106 TCE DROATIN 
1R61 25670000 0001 2620 SCAMPRIO EQU  X'‘Ol' UOT DEVICE ADDRESS X‘10' IKI A OOIB 2674 SVCQSCAN EW) X"IB" SOW SISTEN RE RUTTE 
25680000 [6 2621 * a) mse EW IC! ARSERED 
25690000 00D8 2622 SCADKKKa EQU SCADUCFG+2 2 KATAKANA/KANJI COMM AREA {ti uu) OID 2676 SUCTPOST EWU. "10" TAM Fst 
55700000 2623 ® ] OOIE 2677 SVCTWAIT EQ XIE" TAK MT 
25710000 PD QOD9 2624 SCADSSPF EQU SCADKKKa+l 1 SSP FEATURE INDICATORS i] wan) OOF 2678 SVCTIH EQ XIE" * TIER TMERUPT HADLER 
25720000 0080 2625 SCAMKKKF EQU X'SO' ._KATAKANA/KANJI FEATURE Iki tN 0000 2679 SWOQS EU ‘20 ALTER UESECuER 
25730000 2626 * EQU  x‘40' 7 RESERVED cy O21 2680 SVCRENQ EQ) X21" SIRE ERE 
25740000 [8 2627 * EQU  X‘20° RESERVED sway 0021 2681 SVCROEQ. EQ) SVCREN SIRE RA 
25750000 2628 * EQU. X‘10° RESERVED tN 0002 2682 SVCOUMP EQ) X'22' UMP YN SNG/TRMMTE AK 
25760000 2629 * EQU  x‘O8' RESERVED et 0023 2683 SWCTEST EQ) X'23' TEST AD ST 
IRA] 25770000 09 2630 * EQU  X*04' RESERVED sn 0024 2684 SWCPRIQ. EQ X'24' TOS PROT QE 
25780000 2631 * equ x‘02' . __ RESERVED wa (N25 2685 SVCROYCK EU _X'25' ASAHI TX EN CEC, 
FILES 25790000 0001 2632 SCAMX21 E£QU X‘Ol' X.21 FEATURE i) 1h O06 2686 SVCPREP EQ K'26' PREPARE PRIMER OPT 
1R5| 25800000 {10 2633 * wat O27 2687 SWCOSPCH EGU X'27' SPATE St 
1R6] 25810000 OOFF 2634 SCADCPYR EQU 255 38 _ COPYRIGHT Sh 0026 2688 SVCRPT EQN 4°28" PENT PRINER SE UP, 
1R6! 25820000 2635 * Ai 0029 2689 SWCSQ EQ x29" SECTOR ENE 
LS |R7I 25830000 [ OOEO 2636 SCADMATR EQU SCADCPYR-31 32 TERMINATION DUMP ATR STACK. wl 002A 2690 SVCHOVEL EQU  X'2h' {OE (ATA BY 1D 
IR8{ 25840000 2637 * USED BY ABNORMAL TERMINI si 0028 2691 SVCPOSTI EQ 428° FIST TAK STD 
RDS 1R8| 25850000 2638 * WHEN DUMPING MORE THAN (41 Hit OIC 2682 SVCOMAIT EQU x°2C* ———QUIESCE COURER IT 
25860000 2639 * MAIN STORAGE. COPYRIGHT llllt iit 0020 26°3 SVCKAF EQ) "20" TRABLATED ASTON 
IR4] 25870000 2640 * RESTORED WHEN DUMP. 1S (OMT, ‘i ODE 2694 SMCTOO EU X°2E* RET TIME) IN TIMER UNITS 
F IGURATION 75680000 2641 * rat mH * 
25890000 2642 *** END OF EXPANSION ** wa 2696 * *-INDICATES NOT USEABLE FAO MIN STE 
GURED 25900000 2643 * SVEQU SUPERVISOR CALL EQUATES tal) 
25910000 2644 * a 
25920000 2645 * SVC R-BIYE EQUATES wad 
(RSI 25930000 2646 * Mi 
1R6] 25940000 0000 2647 SWGMAIT EQU = x‘00" GENERAL UAIT Ha 
IR5I 25950000 0001 2648 SVCGPOST EQU X‘O1" GENERAL POST wil] 
(R51 25960000 0002 2649 SVCWAIT EQU x‘O2° WIT At 
IR6I 25970000 0003 2650 SWCPOST QU X‘03* POST cr) 
25920000 fl 0004 2651 SVCXFER EQU X"06" TRAIGFER CONTROL/SYSTEN TRANSIENT wa 
iR4i 25990000 0005 2652 SVCUNSTK EQU X°05° STACK MANIPULATION i) 
26000000 0006 2653 SVCASSEN EGU = X"06" PESIN cr) 
26010000 [I 0007 2654 SVCFREE EQU xX‘O7" FREE sa 
26020000 0008 2655 SVCISEC EQU X‘08* TMCREMENT SYSTEM EVENT COUNTERS ‘i 
TST] 26030000 0009 2656 SVCSISSY EQU  _X"09" SENSE CONSOLE DATA SUTTCHES ii 
D> R31 26000000 [I OO0A 2657 SVCASGR EQU  X‘OA* ASSIGN SYSTEM QUEUE SPACE SVC ‘eu 
D> R31 26050000 0008 2653 SVCPPSVC EQU = xX"0B" PSEUDO DELAYED SVC POST ACM FUNTIO ‘Ai 
D) IRS] 26080000 QOOC 2659 SVCLOATR EQU = x“0C” LORD ATRS wt 
D> 1R6] 26070000 G00D 2660 SVCFR A x"00* ALTER PROGR NODE REGISTER (Pre) wot 
TABLE CUDTD 26080000 GOOE 2661 SVOWUELE AU = X"0E* QUEUE / DEQUEUE SYSTEM CONTROL 810i wet 
iTS 26090000 GOOF 2662 SVCSCB «EWU xX"GF‘ SYSTEN CONTADL BLOCK ACCESS ci 
Mca Ser a eS 
031 mW 
PRE 15 WOOV11/S1 L2/OS/Sl Ge-16 SCPR SMSOAR ~ RIN STORAGE IPL ~ COMMAND PROCESSOR FONCTION ARE 1 ON DS AS] |S RGR IN STORARE CPL ~ CONTR PRODESSOR SNCTION me 
Ov i 
| }ERR UGC OBAECT COME AOR STMT SOURDE STATEMENT SRI AT OME AR STN SOURCE SUONENT 
fut if TB} tettaneaeninenennentccnnnnnenneenentrnnnnsnnnenenennenrEnnnneRty 
| iy UL HA DONA OW NNER AR Sw 
te ‘A TS DMN A SLAIN MRS Se THE 
ca) HD 756 DISMMIN ZO) CISMCIN IMM MRR eS SD I 
ath, ae eC ae 
IIIT ite ‘WS TB DORA SN) TULA ST OF ARRESTS a 
paw ‘UE 5 DISEDR FM) DUREGPTAT SYSTEM COUNT LE ames 
CLES had tn SOT 760 DITA EO) TSE RR IE TEE aE 


Seen ek ee ee oe 


4 SBF __PPSFLAGIC, XR2).PPSCPBIT /* RESET SSP FLAG 
0807 BC 00 IF (VI PPSUPSIC, XR2),0 7® RESET EXTERNAL INDICATORS */ 
TWA FUNC~PUT, TAG~TWAMPS12,N-1,XL-YES, AREA-WSWA 1 
OBOA F4 00 51 Svc 81,0 ISSUE TWA REQUEST 
wf BYTE 


OC = ALLCTWAAPS12) TAG i 
oC ALL) LENGTH CIN SECTORS) 


0838 78C9D7D307D9D6C 
0840 C90703C90703 


4437. * = SCADCFG1(1: 1=ONCSCAMUQFM); /® SET REBUILD COMPLETE © @a145*/ 145 
0B10 3A 02 0012 4438 SBN _ SCADCFG1, SCAMIQEM 42 

4439 ® TF SCATPLUK+1¢1:1)=0 THEN 7® WEED TO SET STARTUP FLAG? *7 
0814 3D 00 0061 4440 CLI SCAIPLUK+1,0 16 

4441 * —_SCAIPLUK+1(1:1=SCAMIPUP; /® YES, SET FLAG 
OB18 F2 01 04 4442 INE 8CR0760 ‘ 
0B1B 3C 10 0061 4443 INI SCATPLUK+1, SCANIPUP 

4444 * ~~ REGCKRID=ADDRCMURCPTCB+TCBTTC-1); /* XR PTR C.P. TIC a1 45*7 

OBIF 4445 MSCAO760 EQU * 4252 18) 

OBIF C2 01 0250 4446 LA NUACPTCB+TCBTTC-1, XR1 4252 

4447 * GEN; 

4448 * POST DEV-QHOTTC, PREMPT-NO  /*INDICATE REBUILD DONE a0145*/ 44490000 | 1 
0823 F4 00 03 4449 SVC__SVCPOST,Q0 
0826 48 0826 4450 OC ALICQHOTTC) 


E32 
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ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
ON 26100000 |0 0010 2663 SVCXIENT EQU  X‘10° TRANSIENT/TRANSFER-USER SPECIFIED 26640000 | 0 
ONG. 26110000 0011 2664 SVCEXIT EQ X'11' TRANSIENT/TRANSFER EXIT SVC 26650000 
26120000 0012 2665 SWGETP EQU  X'l2' GETPAGE 26660000 
BITS 0-3. 26130000 {03 0013 2666 SVCFREEP EQU  X'13" FREEPAGE 26670000 | 0 
DEVICE 26140000 0014 2667 SVCTIN EQU X'14' * INTERVAL TIMER ENQUEUE 26680000 
UOT LINE 26150000 0015 2668 SWTID =EQU  X'15' * INTERVAL TIMER DEQUEUE 26690000 
HAPS TO 26160000 104 0016 2669 SWCTIR EQU X'l6' * INTERVAL TIMER REMAINDER 26700000 | 04 
: 26170000 0017 2670 SVCTKWT EQU X'l7' ASYNCHRONOUS TASK WAIT 26710000 
RI 36180000 0018 2671 SVCXNTOF EQU = X'18" SET TRANSIENT AREA NOT BUSY 26720000 
R6| 26190000 {0 0019 2672 SVCPOSTA EQ X'19° POST ACE SVC 26730000 | 05 
R3| 26200000 OO1A 2673 SVCLOG EQ X'IA' LOG TRACE INFORMATION 26740000 
RI 36310000 001B 2674 SVCQSCAN EQU  X'1B" SCAN SYSTEM QUEUE ROUTINE 26750000 
26220000 {06 2675 * Eq X'Ic' RESERVED 26760000 | 06 
1R61 26230000 0010 2676 SVCTPOST EQU  X"1D" TASK POST 26770000 
26240000 OO1E 2677 SVCTWAIT EQU  X"IE* TASK WAIT 26780000 
1R6! 26250000 07; OOF 2678 SVCTIH EQU X‘IF* *® TIMER INTERRUPT HANDLER 26790000 | 07 
IR6I 26260000 0020 2679 SWQS) EQUUS OX‘20" ALTER QUIESCE COUNTER 26800000 
26270000 0021 2680 SVCRENQ EQU X‘21' RESOURCE ENQUEUE 26810000 
26280000 108 0021 2681 SVCRDEQ EQU SVCRENQ RESOURCE DEQUEUE 26820000 | 03} 
26290000 0022 2682 SVCOUNP EQU  X‘22‘ DUMP MAIN STORAGE/TERMINATE “ASK 26830000 
26300000 0023 2683 SWTEST EQU X‘23° TEST AND SET 26840000 
26310000 109 0024 2684 SVCPRIQ EQU X‘24" TCB PRIORITY QUEUE 26850000 | 09 
26320000 0025 2685 SVCRDYCK EQU  X‘25' ASYNCHRONOUS TASK READY CHECK. 26860000 
iR8I 76330000 0026 2686 SVCPREP EQU  X‘26" PREPARE PRINTER OUTPUT 26870000 
26340000 |10 0027 2687 SVCOSPCH EQ X‘27° DISPATCHER SVC 26880000 | 10 
26350000 0028 2688 SVCRPT QU X‘28° REMOTE PRINTER SET UP. 26890000 
26360000 0029 2689 SWSQ. EQ OK‘29° SECTOR ENQUEUE/DEQUEUE 26900000 
: 26370000 |11 002A 2690 SVCMOVEI EQU = X"2A" FOVE DATA BY ID 26910000 | 1 
NATION 26380000 0028 2691 SVCPOSTI EQU X"28* POST TASK BY ID 26920000 
64K OF ‘26390000 0020 2692 SVCQMAIT EQU = X*‘2C* QUIESCE COUNTER WAIT 26930000 
T WILL SE 26400000 112) OCTD 2693 SVCXAF =EQU XZ" TRANSLATED ASSIGN/FREE 26940000 | 12 
COPPLETE. 


PRE VOO7TEL T27GBAR] T2si6 | 


AGOFP - HY 


VW 


Smo caer ow aoe oe 


4251 
aal45*/ 
4252 
| 4252 


3 /® XR1 PTR C.P. TTC 


/*INDICATE REBUILD DONE © aal45*/ 


PAGE = 5 


SIENT/TRANSFER-USER SPECIFIED 
SIENT/TRANSFER EXIT SVC 
AGE 

PAGE 

TERVAL TIMER ENQUEUE 
TERVAL TIMER DEQUEUE 
TERVAL TIMER REMAINDER 
CHRONOUS TASK WAIT 
TRANSIENT AREA NOT BUSY 
ACE SVC 

FRACE_ INFORMATION 
SYSTEM QUEUE ROUTINE 
-RVED 


ER INTERRUPT HANDLER 

¢ QUIESCE COUNTER 

RCE ENQUEUE 

IRCE DEQUEUE 

MAIN STORAGE/TERMINATE | ASK 
AND SET 

RIORITY QUEUE 

HRONOUS TASK READY CHECK. 
RE PRINTER OUTPUT 

\TCHER SVC 

E PRINTER SET UP. 

JR ENQUEUE /DEQUEUE 

DATA BY ID 

TASK BY ID 

CE COUNTER WAIT 

LATED ASSTGN/FREE 

IN TIME~OF-DAY IN TIMER UNITS 


N STORE 


® OF SHAR OF SSP REGISTER SME AEA 
STEM COUNTER TABLE ADDRESS 
OF MARDWRE TIMER ALU 


08/81 02:16 


01 NSCPR MNSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION 


02 


07 


10 


1 


16 


19 


fu 


ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 
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2698 * DELAYED SVC R~BYTE EQUATES 269900 

0040 2699 SVCFD QU. X'40' _ DISK 10S 270000 
0041 2700 SWIO. = EQU.SCX'41' DISKETTE 10CS 270100 
0042 2701 SWCPT = EQUX*42° WORKSTATION [OCH (PRINTER) 270200 
0043 2702 SVCWSC  EQU _X'43' WORKSTATION [OCH CTERMINAL) 270300 
0044 2703 SVCCOMN «=EQU X'44' COMMUNICATIONS OCH 270400 
0045 2704 SVCIOXNT EQU X‘45' 1/0 TRANSIENT REQUEST 270500 
004C 2705 SVCPQSVC EQU X'4C' PSEUDO _I/0_REQUEST 270600 
2706 * X'46' -> X°4F* RESERVED FOR 1/0 SVC'S 270700 

0050 2707 SVCCXNT EQU X'‘50' CONTROL STORE TRANSIENT SCHEDULER 270800 
0051 2708 SVCTWA EG i) TASK WORK AREA ACCESS 270900 
0052 2709 SVCLOAD EQU Xx'52' MAIN STORAGE RELOCATING LOADER 271000 
2710 * X'53' -> X'SC' RESERVED FOR DELAYED SVC'S 271100 

OO5C 2711 SVCKBTR EQU  X'5SC' KEYBOARD TRACE 271200 
2712 * 271300 

2713 *® SVC Q CODE EQUATES 2714000 

2714 * 2715000 

0001 2715 Qi eq Xx‘0l' SVC SIGNIFICANT INDICATOR 271600 
0001 2716 QAIT = EQ X‘O1" WAIT ON THIS SVC INDICATOR 2717000 
0001 2717 QREFRESH EQU  X'‘01‘ REFRESH TRANSIENT /TRANSFER INDICATOR 2718000 
0002 2718 QNREF = EQU X‘02° NON-REFRESHABLE SVC INDICATOR 271900 
0004 2719 QXLOFF EQU x‘04" TRANSLATE OFF-108/PARM LIST~ INDICATOR 272000 
0004 2720 QSYSREQ EQU X'04" SPECIAL SYSTEM REQUEST FOR ASSIGN REC 272100 
0004 2721 QFRMEXM EQU X‘04' FOR MOVEI ~ FROM ID IN EXAM 6 2722000 
0008 2722 QFOEXM EQU X‘08' FOR MOVET - TO ID IN EXAM 6 272300 
0006 2723 QUAIT EQ X'08" MULTIPLE WAIT 1/0 REQUEST 272400 
0008 2724 QCPWAIT EQU X‘08" ASYNC ERROR WAIT REQUEST 2725000 
0010 2725 QSCT EQ X'10" SUBSYSTEM CONFIG TABLE aai45 2726000 
0010 2726 QNQ Eq x'10° NON-QUIESCABLE REQUEST INDICATOR 2727000 
0020 2727 QXR2 EQ x‘20" RETURN XR2 FROM POSTER ON WAIT. 2728000 
0040 2728 QKU EQU x*40" USE USERS TCB ON EXAM I/0 REQUEST 6 272900 
0000 2729 Qo EqU. X*00° IMMEDIATE SVC_EQUATE 2730000 
0080 2730 CSCALL =FQ  x‘80° CS SVC INDICATOR 2731000 
0019 2731 QMINV = EQU  QNQ*Q*UAIT+QMAIT NON-VOLUNTARY SUAPPABLE WAIT 2732000 
0018 2732 QNCHPRI EQU QNQ+QRAIT NOT CHANGE PRIORITY ON WAIT 8 2733000 
0009 2733 QSPEC = EQU « QAMAIT*QUAIT SPECIFIC WAIT ON NON-ECH. 2734000 
2734 * 2735000 

O0F4 2735 SVCOP) EU OX"F4" SVC_OP CODE VALUE 2736000 
OOFS 2736 SVCXFR «EQU XFS" SVC TRANSFER OP CODE 2737000 
7738000 

2739000 

7740000 

2741000 

7742000 

zi@ 00 x x x x x ® x * 143000 
7743 * STATI * STAT2 * WAASK * WSK2 * = ** STAT * PRIOR * TTIME * Q(T * 2744000 
2145 *08 * es * * 7746000 
mé* 8 60OFIQ* * * GAIN * fOVG * 7747000 
7742 *10 be x = sf * 25000 
za HQ = = * Sa = RB * 7739000 
TR RAAERARARERRERERAERRARARERRERER ER 27571000 
ip) | 13 cd x * Ed « 2752000 

033 


PAGE «1B WONSIL/S1 1Z/R1 Oo 


D6) CHARACTER CRT SOREEW 
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01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


2698 * DELAYED SVC R-BYTE EQUATES 
DISK [0S 27000000 
EQU X‘41' DISKETTE [0CS 27010000 
EQU X'42' WORKSTATION LOCH (PRINTER) 
WORKSTATION [OCH CTERMINAL) 
0044 2703 SVCCOM EQU X‘44' COMMUNICATIONS [OCH 27040000 
0045 2704 SVCIOXNT EQU  X'45' 1/0 TRANSIENT REQUEST 27050000 
O04C_ 2705 SVCPQSVC EQU X'4C' PSEUDO 1/0 REQUEST 27060000 
2706 *® X'46' -> X*4F' RESERVED FOR [/0 SVC'S 27070000 
0050 2707 SVCCXNT EQU X'‘50' CONTROL STORE TRANSIENT SCHEDULER 27080000 
0051 2708 SVCTWA EQ ) TASK WORK AREA ACCESS 27090000 
0052 2709 SVCLOAD EQU  X'‘52' MAIN STORAGE RELOCATING LOADER 
2710 * X'53' => X'SC' sceled FOR DELAYED SVC 'S 27110000 
O05C 2711 SVCKBTR QU X'5C‘ B 
2ri2 * 27130000 
2713 * SVC Q CODE EQUATES 27140000 
2714 * 27150000 
0001 2715 Ql Eq Xx‘0l' SVC SIGNIFICANT INDICATOR 
0001 2716 QuAIT Eq Xx‘0r" WAIT ON THIS SVC INDICATOR 
RANSIENT/TRANSFER INDICATOR 
Eq X‘02" NON-REFRESHABLE SVC INDICATOR 27190000 
TRANSLATE OFF-10B/PARM LIST-INDICATOR 
SPECIAL SYSTEM REQ 
FOR MOVEI - FROM ID IN EXAM 6 
FOR MOVE - TO ID IN EXAM 6 
MULTIPLE WAIT 1/0 REQ 
0008 2724 QCPWAIT EQU  X'‘08" ASYNC ERROR WAIT REQUEST 27250000 
0010 2725 Qtr «=§sEQUs«X'10° SUBSYSTEM CONFIG TABLE aal45 27260000 
0010 2726 QNQ QU X‘10' NON-QUIESCABLE REQUEST INDICATOR 27270000 
0020 2727 QXR2 Ew X'20° RETURN XR2 FROM POSTER ON WAIT. 27280000 
0040 2728 QU Eq@ X"40° USE USERS TCB ON EXAM I/O REQUEST 6 27290000 
0000 2729 Q0 Eq X‘00" IMPEDIATE SVC EQUATE 27300000 
0080 2730 CSCALL EQU  X‘80' CS SVC INDICATOR 27310000 
0019 2731 QNONV «= EQU «QNQ+QAIT+QMAIT NON-VOLUNTARY SUAPPABLE WAIT 27320000 
0018 2732 QUCHPRI EQU  QNQ*QMAIT NOT CHANGE PRIORITY ON WAIT 8 27330000 


0041 2700 SVCIO 
0042 2701 SVCPT 


0002 2718 QNREF 
0004 2719 OXLOFF Ew X'04' 


0004 2721 QFRMEXM EQU X'‘04' 
0008 2722 QTOEXM EQU X‘08' 


0009 2733 QSPEC «= EQU « QMAIT+QUAIT SPECIFIC WAIT ON NON-ECK. 27340000 
14 2734 * 27350000 
00F4 2735 SVCOP, QU OX‘F4" SVC OP CODE VALLE 27360000 
OOF5 2736 SVCXFR EQU  X‘F5" SVC TRANSFER OP CODE 27370000 


2737 *** END OF EXPANSION ** 


a ar aa 77430000 
* STATS * PRIOR * TTINE * QONT * 


x cd x «x 


2742 *00 
7743 * STATI * STATZ * WSK * WEK2 * 


01 


02 


03 


04 


10 


11 


0008 452% 
0004 452: 
0002 453¢ 


MASCPR #MSCPR - MAIN STORAGE IP 
ERR LOC OBJECT CODE ADDR S$ 


¥O9/11/81 12/08/81 02:16 


aT RF RF RL RP RP RR RR RR OR, 


VW 


CG 8920 DATOTOIR CQ A UO STOTER TASK 

0004 4529 SATNRTUB EQU X'04' REQ. TUB, BUT NOT OWNER 
0002 4530 SATNCNIQ EQU X'02" DISALLOW CANCEL OR INQ 
0001 4531 SATACHER EQU X‘O1' 
0016 4532 SATTSKID EQU SATFLAGI+1 = TASK ID OF TASK ATACHED 
0018 4533 $ATDATAR EQU  SATTSKID+2 ADDRESS OF DATA TO PUT 
0019 4534 SATLENG EQU SATDATAd+] = LENGTH OF ATACH PARMLIST 


ATTACHERCMRJE) INDICATOR 


4535 * 


4536 _* ERROR RETURN CODES IN XR1_IN FORMAT OOXX, WHERE XX: 
4537 * IF ATTACH WAS SUCCESSFUL, XR1 RETURNS WITH ATTACHED TASKS TCB 


£34 


MMGCPR MNSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION PAGE 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


2752 * XR . a@XR2 x * ARR . aIAR 

2153 RARRAARRRRARARAARRARRRRARRARRERAK RARARAERERARRARRRR IRR RRR 
2754 *5 x x x * * ® ry * ® 
2755 * PAR * PSR *® R * Q * * AINL1 * GINL2 * aIM3 * AINL4 * 
2756 RRRRRARRRRRARRARRARRARARRARRRRRRK RRARAERAARARRERAARARER RRR 
2757 *28 x ry x ® x ® 
2758 * TSSN * BEGL * ® MSSIZ ® RGSIZ * SPOOL x 
2159 RRARRRRARRARRRRRARRARRAREARRARR RARER ARR RRR RRR RRR 
2760 *30 x 
2761 * 7 
2162 RERRRRRARRARRARRARAERARRARARERRARAARARAARRARARRRRARRIER RAR ARAAR RR RARIR 
2763 *38 

2764 * ATRS s 
2165 RRRAAAAARAARARARRAARRARRRARARRA RARER RARER ERR IRR RII RI 
2766 *40 x 
2767 * ® 
2168 RERRARARRARARARERRARRARRARRARAARRARRARARARARERRARAR RRR RRR RR 
2769 *48 x 
2770 * ® 
QT] RRAAARAAARARRAREARERAERARRARER ARERR AREER ARERR RIERA IR 
2772 *50 ® z * ry z 
2773 * Tc ® TWA id . WSWA 7 LOREL 

21714 RRRRAARRAERARAARRARIIR ERRATA KREARARARAARRARRARAAARARRARAR RARE 
2775 *58 x x ry x x 
2776 * LDOSK ® INVCT * Ls ASEQ i EXIT 


271 RRRKRKRKRARRAARKRAKRAREAKRAAKRARRRRRAAAKKRAAAKRARKAARARAKRAAAAKAKKRRARRAA 


CNCNT * IQCNT * ARQCT * STAT6 * 


2D SEZ DPT EQS DT TOK GE FIRST GE ON QUE GIG.) 


CA 3 DPN EM DPI] TK OF FST Tae OW MEE Ci) 
| Bea * "I 
R35 amadalenhadeleiaieiadedeadeeaaadebiataieieadiaiadatattasiatasebaiaenineaasedetaiainiasstniatiasianesnabiniaaannsndieninitiaiatianiananinil 


45320000 
45330000 


27540000 
27550000 


OB8A | 
OB8B 7BC7C3F2F 1404040 OB92 
0893 80 0893 | 


M"SCPR MISCPR - MAIN STORAGE 


ERR LOC OBJECT CODE ADD 


8 


Sssssizgs 8s sisssisssiss 


B8sss gs gs 


88 


Pp 


88 | BBRBSssse 8 


PAGE 55 09/11/81 12/08/81 02:16 


alaR ® 


RRAARAKRARAARKK 
x x 

3 * aINL4 * 
LRARAAAARAARA 
Cy 

spool * 
ERARARAARAKKK 
® 

® 
RARRRAAAAARRK 
x 

x 
RRAAAARRAARAK 
* 

® 
RARARARARAAK 


14 * STATS * 


RARRARAKARER 
x x 

CT * STAT6 * 
RERRARAAARKR 
x 

x 

% LRRARKRAARR 


NGL CRU Ur CAPTAINS LUN OT” 
4583 *IPFNOZ1 SFNOP V-DC, TYPE~O, NAME-%GC21, SKIP-USER 


4585 * PARAMETER LIST FOR SYSTEN FINO 


OB8A 4587 NIPFNOZ1 EQU * 
OB8A 08 OBSA 4588 AL1¢8) MENBER TYPE 
OB8B 7BC7C3F2F 1404040 0B92 4589 CLS‘#6C21' = MEMBER NAME 
0893 80 0B93 4590 AL1C128> SEARCH SYS LIBR AND 
RETURN DIRECTORY ENTRY 


£35 
SCPR MNSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION PAGE 56 09/11/81 12/08/81 02:16 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
02 2791 "VWWWWWWWWWWV THE “FOLLOWING FIELDS ARE ORDER DEPENDENT VY 2792.000 
0000 2792 TCBSTAT! EQU 0 TCB STATUS BYTE 1 27930000 
03 0080 2794 TCBWAIT EQU X‘80" - TASK IS NOT ON READY QUEUE 27950000 
0040 2795 TCBSWAPD EQU X'40' ._TASK IS SWAPPED TO DISK. 27960000 
0020 2796 TCBFORCD EQU  X'20' + TASK FORCED TO SWAPC* DISPATCHABLE) 27970000 
04 0010 2797 TCBLONGW EQU X'10" « TASK IS QUIESCED ~ TCBQCNT = 0 27980000 
0008 2798 TCBSOP EQU X‘08' . TASK HAS SWAP OUT 1/0 IN PROGRESS 27990000 
0004 2799 TCBUSTIN EQU = X'04" - SET ON WHEN TASK SWAPPED IN. 28000000 
0 0004 2800 TCBFSWAP EQU  X'‘04' . SET ON WHEN TASK FULLY SWAPPED OUT. 28010000 
000? 2801 TCBNOIO EQU  X‘02' -_NO 1/0 REQ. FOR SWAP INDICATOR 28020000 
0001 2802 TCBNSWAP EQU  X‘01' « TASK IS NEVER SWAPPABLE 28030000 
06 
0001 2804 TCBSTAT2 EQU  TCBSTATI+1 _—_TCB STATUS BYTE 2 _ 28050000 
07 0080 2806 TCBWAITD EQU  X*80" « TASK WAITING FOR EVENT COMPLETION 28070000 
9040 2807 TCBXWAIT EQU  X‘40‘ «TASK WAITING FOR TRANSIENT AREA 28080000 
0020 2808 TCBGWAIT EQU  X‘20° . TASK WAITING FOR GENERAL POST 28090000 
08 0010 2809 TCBDWAIT EQU  X"10° « TASK WAITING FOR DEDICATED TTC 28100000 
0008 2810 TCBIWAIT EQU X‘08* «_ TASK WAITING FOR INTERNAL DYLD SVC 28110000 
0004 2811 TCBTWAIT EQU = X‘04" . TASK WAITING FOR TIMER ELAPSE 28120000 
09 0002 2812 TCBSUSP EQU X‘02° - TASK IS SUSPENDED 28130000 
2813 * ; C SEE TCBSUSPS FOR REASON > 28140000 
2814 * EU X*Gi' . RESERVED 28150000 
10 OOBE 2815 TCBNRDY EQU = TCBla‘TTD+TCBTWAIT+TCBGHAIT*TCROWAIT+TCBSUSP+TCBIWAIT 28160000 
0002 2817 TCBUMASK EQU  TCBSTAT2#1 0 iT WAIT MASK 28180000 
u 
0080 2819 TCBAWAIT EQU  X*‘80" - SQS ASSIGN FAILURE 28200000 
0040 2820 TCBSWAIT EQU = X*40" ~ TWA ALLOCATE FAILURE 28210000 
2 0020 2821 TCSTAS EQU Xx*20° - TEST AND SET FAILURE 28220000 
0010 2822 TCRARIT EQ X*10" - W505 ASSIGN FAILURE 28230000 
0008 2823 TCRQWAIT EQ X03" - RESOURCE ENQUEUE POST CODE 28240000 
2624 * NOTE: THE ABOVE BIT IS NOT ON WHEN TASK IS IN GENERAL WAIT. HENCE 28230000 
2825 * AON GENERAL UAIT UITH BOTH MASK BYTES ALL ZERO 1S 28260000 
2826 * ‘A RESOURCE ERQUEUE FAILURE. 28770000 


i anaingaye 


OBB4 4636 = ORG ie 46370000 


OBB4 4638 NIPAVPRa EQU * AUTO VARY PARM LIST 46390000 

OBB4 0000000000000000 OBBB 4639 NIPAVPRM DC 4.8 '00' x 46400000 

OBB4 4640 OFc  NIPAVPRA+RWPLREQ 46410000 

OBB4 04 OBB4 4641 DC _ALICRUPLAUT) REQUEST BYTE 46420000 

OBBC 4642 ORG 46430000 

4643 * EQUATES FOR SAVE OF STARTUP PROCEDURE 46440000 

0208 4644 NIPSTART EQU NUARDIOB+48 STARTUP PROCEDURE SAVE AREA 46450000 

O2DF 4645 NIPSTRTE EQU NIPSTART+? x 46460000 

E36 
56 09/11/61 12/08/81 0 02:16] #SCPR MMSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION PAGE §=57 09/11/81 12/08/81 02:16 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 

ww 2792.000 | 02 0040 2845 TCBCHKPT EQU X'40° - THIS TASK [S BEING CHECKPOINTED 28460000 
27930000 0020 2846 TCBEXTRA EQU X'‘20" -_ EXTENDED TRACE ACTIVE 28470000 


0010 2847 TCBCCALL EQU = X‘10° . CLOSE HAS BEEN CALLED INDICATOR 


27950000 | 03 0008 2848 TCBKCALL EQU  X‘03" . KEYSORT HAS BEEN CALLED INDICATOR 
27960000 0004 2849 TCBSUSPD EQU X‘04' -_ SUSPEND FROM SYS OPERATOR PENDING 
27970000 0002 2850 TCBOMEPO EQU  X*02° ~ DATA MODE ESCAPE PENDING 
27980000 | O 0001 2851 TCBINGPD EQU X‘O1" - INQUIRY PENDING 
27990000 
28000000 
28010000 | 05) 
28020000 OOFF 2855 TCBPRINV EQU _X‘FF* INVALID PRIORITYCCAN NOT BE USED) 
28030000 OFC 2856 TCBPRCP EQU  X'FC‘ COMMAND PROCESSOR PRIORITY 
06 OOFG 2857 TCBPRSP EQU X‘FO‘ SPOOL PRIORITY 
28050000 OOFO 2858 TCBPRAR QU X‘FC* MRJE_ PRIORITY 
OOF 4 2659 TCBPRESC EQU  X'F4° BCS PRIORITY 
28070000 | 07 OOF3 2860 TCBPREM EQU 2'5?° 3270 EMULATION PRIORITY 
28080000 OOFO 2861 TCBPREXT EQU  X'FO" EXTENDED TRACE PRIORITY 
78090000 OOF4 2862 TCBPRITH EQU X'F4* BCS PRIORITY FOR 3270 17H 
28100000 | 08} OOF8 2863 TCBPRSDP EQU  X'FS' SDLC PRIORITY CPRINERY) 
28110000 OOF9 2864 TCBPRSDS EQU  X'F9" SOLC PRIORITY (SECONDARY) 
28120000 OOFO 2865 TCBPRSNI EQU X‘FO" SNA 1 PRIORITY 78660000 
28130000 | 09 OOFO 2866 TCBPRSNR EQU X"FO" SNA 2 PRIORITY 28670000 
28140000 OOFO 2867 TCBPRBLO EQU X'FO' REBUILD PRIORITY 2a680000 
78150000 OOFO 2868 TCBPRSRIJ EQU  X'FO" SRIE PRIORITY 79680000 
r 28160000 | 10 OOFO 2869 TCBPRSNF EQU  X‘FO" SNUF SUBSYSTEM PRIORITY 28700000 


OOFO 2870 TCSPRPER EQU X'FO" SMA PEER SUBSYSTEN PRIORITY 28710000 | 


2804 * TOOPRIOR VILLE TCOPRCWY am BIT TORN UMLL BE SET IN TORDAT. 
Seen PRET 


DIPCEDA1 CURRENT SPR POINTER FUR CS SWCS FROM EL? § 


v5 * sorenon | 
O63 ORS TMISAY QU DPS] RESOURCE PMMENETRERUEUE “SANE AREA SOTTO 
I] MRI ARMREST LE IONS IILEL PSOE TIERED LEN IIR IIIT, OTRO | 
078 * ACE” BUILD BREA * B97 9H 
FID PARMAR ORRIN HIN LENIN LET RHIC ILIAD I IRE ISSIR IIIS. pepo 


Oo  XL3‘00° MODULE SSS 
oc = AL1¢0) NUNBER OF TEXT SECTORS 
oC ALCO) RLO DISPLACEMENT 


HISTORY FILE INITIALIZE 
OCF1 4691 NIPSSHFI EQU 


OCF3 4692 DC = -XL3 "00" MODULE SSS 
OCF4 4693 OC ALCO) NUMBER OF TEXT SECTORS 
OCFS 4694 oC ALCO) RLD DISPLACEMENT 
FO1 
@MSCPR MMSCPR ~ MAIN STORAGE [PL - COMMAND PROCESSOR FUNCTIO PAGE 58 09/11/81 12/08/81 02:16 1 #SCPR MISCPR - MAIN STORAGE IPL - COM 
1) 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOUF 
02| OOOF 2899 TCBROVQ EQU TCBCHAIN+2 SYSTEM READY QUEUE CHAINING FIELD 29000000 2} 2 0002 2953 TCBI 
: OOOF 2900 TCBSWAPQ EQU TCBROYQ SYSTEM READY QUEUE SPECIAL EQUATE 29010000 2954 *® 
0011 2901 TCBXNTQ EQU  TCBRDYQ+2 SYSTEM TRANSIENT QUEUE CHAINING FIELD 29020000 
03 0013 2902 TCBRTUB EQU  TCBXNTQ+#2 TUB ADDRESS OF REQUESTOR 29030000 3} 006A 2956 TCBS 
2904 ®VVWWWWWWWWWWWV THE FOLLOWING FIELDS ARE ORDER DEPENDENT VWWVWVWVVVVVVVVV 29050000 0068 2958 TCBI 
04 0015 2905 TCBICBA EQU TCBRTUB+2 ADDRESS OF TASK JOB CONTROL BLOCK 29060000 [24 
0017 2906 TCBCRB EQU  TCBJCBa+2 CURRENT REQUEST BLOCK POINTER 29070000 OOE4 2960 TCBI 
0018 2907 TCBARSE EQU TCBCRB+1 REGISTER SAVE ELEMENT CLEFT BYTE) 29080000 OOES 2961 TCBI 
05] 0019 2908 TCBAXR1 EQU TCBCRB+2 ~~ . CURRENT XRI 29090000 OOE6 2962 TCBI 
0018 2909 TCBAXR2 EQU  TCBAXRI+2 « CURRENT XR2 29100000 OE? 2963 TCBI 
OO1D 2910 TCBAARR EQU  TCBAXR2+2 » CURRENT ARR OOES 2964 TCBI 
06 OOF 2911 TCBAIAR EQU  TCBAARR+2 + CURRENT [AR 29120000 pO OOED 2965 TCBI 
0021 2912 TCBAPSMR EQU  TCBAIAR+2 + CURRENT PMR/PSR 29130000 OOEA 2966 TCBI 
0023 2913 TCBARQ EQU TCBAPSHR+2 — . CURRENT R AND Q BYTES 29140000 OOEB 2967 TCBI 
07; 0024 2914 TCBAINL] EQU  TCBARQ+} « INLINE PARM 1 OOEC 2968 TCBI 
0025 2915 TCBAINL2 EQU TCBAINLI+1 —._ INLINE PARM 2 OOED 2969 TCBI 
0026 2916 TCBRINL3 EQU TCBAINL2+]  . INLINE PARM 3 29170000 OOEE 2970 TCBI 
08 0027 2917 TCBAINL4 EQU TCBAINL3+1  . INLINE PARM 4 29180000 Jd OOEF 2971 TCBI 
0027 2918 TCBRSE EQU  TCBCRB+16 CURRENT REGISTER SAVE ELEMENT 29190000 OOF 2972 TCBI 
2919 *AAAAAAAAAAAAA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAAAAAAA 29200000 2973 * 
09) OOF2 2974 TCBI 
2921 *VWWWWWWWWWWV THE FOLLOWING FIELOS ARE ORDER DEPENDENT WWWWWWWWWWWWWW 29220000 OOF3 2975 TCBI 
002A 2922 TCBTSSN EQU  TCBRSE+3 TASK DISK ADDR IN SWAP AREA. 29230000 OOF 4 2976 TCBI 
10 0028 2923 TCBBEGL EQU TCBTSSN+l LOGICAL PROGRAM BEGIN ATR NUMBER. 29240000 {10 OOFS 2977 TCBI 
0028 2924 TCBECMGW EQU  TCBBEGL FOUR BYTE ECM FOR CP WSQS FAILURES 29250000 0OF6 2978 TCBI 
002C 2925 TCBMSSIZ EQU TCBBEGL+1 CURRENT SIZE OF MAIN STORE ALLOCATED. OOFB 2979 TCBI 
11 002D 2926 TCBRGSIZ EQU TCBMSSIZ+1 TASK REGION SIZE CMAX. TCBNMSSIZ) OF? 2980 TCBI 
2927 *AARAARAM HARA THE ABOVE FIELDS ARE ORDER DEPENDENT AAAAAAAAAAAAAAAAARA OOF8 2981 TCBI 
OOF9 2982 TCBI 
1 002F 2929 TCBSPOOL EQU TCBRGSIZ+2 SPOOL WORK AREA ADDR OOFA 2983 TCBI 
OO2F 2930 TCBECMER EQU  TCBSPOOL SPECIAL ECM FOR CP ERRORS. OOFD 2984 TCBI 
O02F 2931 TCBAQHDR EQU  TCBSPOOL USED AS SPECIAL SYSTEM Q HEADER. OOFC 2985 TCBI 
B OO4F 2932 TCBATRS EQU TCBSPOOL+32 ATR STACK SAVE AREA OOFE 2986 TCBI 
001 793) TOBTTC EQU TCBATRS+2 TASK-TASK COMMUNICATIONS AREA OOEO 2987 TCON 
0053 2934 TCT EQ TCT TC #2 DISK ADDRESS OF TASK WORK AREA 
14 0055 2935 TCRUSWA EQU  TCBTWA+2 DISK ADDRESS OF SESSION WORK AREA 0060 2985 TCBP 
0057 2936 TCBLOREL EQU TCBLSUAe2 = TASK RELOCATION rACTOR FOR LOADER 
0057 2937 TCanic §=—QU  TCBLDREL ABTERM | &R MIC 29380000 006E 2991 TCBS 
, 005A 2938 TCBLDISK EQU TCBLOREL+3 © TASK A:““LUTE DISK ADOR FOR LOADER : 
0059 2939 TCRSIAR EQU  TCBLDISK-1 0090 2993 TCBS 
TASK INVITE COUNT 0040 2994 TCBA 
16 ASSIGNED ELETENTS QUEUE 6} 0020 2995 TCBS 
0010 2996 TCBA 
0008 2997 FCBZ 
1 006 2998 1080 
0004 2999 TCBI 
0069 2946 TORLORK EQU | TCBSGBCT+1 «© COUNT OF LOCK BEQUESTS 29470000 0002 3000 TORK 
1g 0080 2947 TORLEKDI QU = "80" INTERLOCK FOR DEDICATION 29880000 BU 0001 3001 1080 
0000 2968 TURLEKSI QU = X"40" INTERLOCK FOR SCHEDULER 29490000 
0020 2989 TOBLIKVE i = x°20" INTERLOCK FOR WI0C 2900000 | oF 3003 TORS 
19 0010 2950 TCBLEKSI EU x"10° INTERLOCK FOR FORMAT 5 pancaed 
0008 2951 TORLCRPI EU x"08" INTERLOCK FOR PROC AE 25RD (080 3005 HOST 
oe 
fat "ut 
£01 


w OO? 23 TOROWERD FRU DEMS] «= A/D ADDRESS COMPARE WERITY DATA OS OTT £ 
! Bors es DOM EU OADUERDY] «= AD ADDRESS CODMPARE Teak AODRESS BORD INTE 
| WS OS DAN EU TCS 1/7) ADDRESS COPARE CONTROL ORD ROBO TOT € 

iis! Tuas * HIGH BYE a0 * 
| BOSD WO) ABC ER KBD" ‘SioP oF HSK ACT OO! 08s 
| $oO TE AREAL EU REAL WERIPY ADDRESS TOR? ” 

ol BOO 10 aay eK" WEREEY STHP Woon 1082 = 
i BO 3D REOMTCH EQ KID" ‘Sree FF Are WATCHES BORO 0B = 
; WS IO] ACN RU KOE Stor F BITS We BA Ba TORE = 

pa Os 1 TK ‘STUP TF BITS WE DF WOR WK = 

> OS ao coy: ae ery SoC CMe CCOeD Tae oto wiiy rT x 


$ 
29000000 P) 0002 2953 TCBLCKSP EQU ‘02° INTERLOCK FOR SPOOL "ILE 29540000 | 02 
29010000 2954 * EQU. X'01' INTERLOCK FOR RESERVED 29550000 


San 
YOZU000 


29030000 006A 2956 TCBSSTIO EQU  TCBLCKNK+1 SHARED STORAGE TASK IDSK BITS 29570000 | 03 
79050000 0068 2956 TCBTSKIO EQU  TCBSSTIOel TASK 10 29590000 | | 
29060000 / 
29070000 O0E4 2960 TCBIDACT EQU _X'E4! AUTOCALL TASK ID 6 29610000 
59080000 QOE5 2961 TCBIDITH EQU X'ES® BSC TH FOR 3270 EMULATION TASK 10 29620000 
29090000 QOE6 2962 TCBIDBTS EQU X°EG" BSC 3270 SUBSYSTEM TASK ID 29630000 | 05 
29100000 _ __00E7 2963 TCBIDSNE EQU _X‘E7' SNA 3270 SUBSYSTEM TASK ID 29640000 
79110000 Q0ES 2964 TCBIDGCE EQU X'ES® FLCA CONTROLLER CHECK ERROR TASK ID 29650000 
29120000 OOE9 2965 TCBIDSNF EQU  X'E9 SNUF SUBSYSTEM TASK ID 29660000 | 06 
29130000 OOEA 2966 TCBIDPER EQU _X"EA' SNA PEER SUBSYSTEM TASK ID 
39140000 967 TCBIOCCP EQU  X'EB™ CCP SUBSYSTEM TASK 10 
29150000 OOEC 2968 TCBIDCIC EQU X'EC' CICS SUBSYSTEM TASK ID 29690000 | 07 
29160000 OOED 2969 TCBIDINS EQU _X'ED' INS SUBSYSTEM TASK ID 29700000 
29170000 OOEE 2970 TCBIDBEL EQU X'EE™ BSCEL SUBSYSTEM TASK I 29710000 
29180000 OOEF 2971 TCBIDINT EQU  X'EF* INTRA SUBSYSTEM TASK 10 08 
29190000 OOFO 2972 TCBIDCP EQU X'FO' COMMAND PROCESSOR TASK ID 
79200000 273 * FU XFL RESERVED 

OOF2 2974 TCBIDJQ EQU X'F2' JOB QUEUE TASK 1D 09 


29220000 OOF3 2975 TCBIOSFS EQU § X‘F3° SNA FINANCE SUPPORT ID 
29230000 OOF4 2976 TCBIDMR EQU X'F4' MRJE TASK ID 29770000 
29240000 OOF5 2977 TCBIDBSC EQU xX‘F5' BSC TASK ID 29780000 | 10 
29250000 OOF6 2978 TCBIDSOP EQU  X'F6' SDLC TASK ID 29790000 
29260000 OOFB 2979 TCBIDSDS EQU X‘FB' SDLC TASK ID 29800000 
29270000 COF? 2980 TCBIOSNI EQU  X'FT' SNA TASK ID 29810000 | 11 
29280000 OOF8 2981 TCBIDSNR EQU  X‘F8' SNA TASK ID 29820000 

OOF9 2982 TCBIDBLD EQU X‘F9' REBUILD TASK ID 29830000 
29300000 OOFA 2983 TCBIDSRJ EQU X'FA' SRJE TASK ID 29840000 | 1 
29310000 OOFD 2984 TCBIDIBS EQU § X'FD' INTERACTIVE BSC TASK ID 29850000 
29320000 OOFC 2985 TCBIDS44 EQU § xX'FC' SNA 44 TASK ID 29860000 
29330000 OOFE 2986 TCBIDGA EQU X'‘FE' GAIGI TASK ID 29870000 | 13} 
29340000 OOEO 2987 TCBMAXID EQU  X'EO' MAXIMUM USER ID 29880000 
29350000 ; 
29360000 006D 2989 TCBPRIQ EQU TCBYSKID+2 CB PRIORITY QUEUE CHAINING FIELD 29900000 | 14 
29370000 
29380000 006E 2991 TCBSTAT4 EQU TCBPRIQ+1 ADDITIONAL TCB STATUS 29920000 . 
29390000 
29400000 0080 2993 TCBSHDRC EQU  X‘80" SHUTDOWN RETURN CODE DELIVERED 29940000 
29410000 0040 2994 TCBATTCH EQU  X*40° ATTACH YES 29950000 
29420000 0020 2995 TCBSYSTN EQU Xx‘20° SYSTEM TASK - NOT SUSPENDABLE 29960000 6 
29430000 0010 2996 TCBABTRM EQU = X*lu” TASK 1S IN ABNORMAL TERMINATION 29970000 
29440000 0008 2997 TCBZ2RCS EQU X‘08" RECURSIVE TERMINATION DUE TO SVC 22 29980000 | 
29450000 0004 2998 TCBCMLPD EQU X"04' CANCEL PENDING 29990000 | 1 
29460000 0004 2999 TCBTUACL EQU = X‘O4" C.P. CALLED FOR TUA RECOVERY 
29470000 0002 3000 TCRHDAPT x°02° ERROR ON DUMP - PARTIAL 


29480000 0001 3001 TCBDRPPD £QU  X"O1" 30020000 | 19 
29490000 
29500000 
29510000 19 


WRSCPR MNSCPR ~ PAIN STORAGE IPL - CO 


ERR LOC OBJECT CODE 


ADOR STMT SO 


0020 3007 TC 
0010 3008 TC 
0008 3009 TC 
0004 3010 TC 
0002 3011 TC 
0001 3012 TC 


0070 3014 TC 
0070 3015 TC 
0071 3016 TC 
0072 3017 TC 
0073 3018 TC 
0074 3619 TC 


0075 3021 TC 


0076 3023 TC 
0077 3024 TC 


0080 3026 TC 
0040 3027 TC 
0020 3028 TCI 
0010 3029 TCI 
0008 3030 TCI 
0004 3031 TCI 
0002 3032 TCI 
0001 3033 TCI 


0078 3035 TCI 
0080 3036 TCI 
0005 3037 BA 

3038 * | 


0079 3040 TC 


0080 3042 TCI 
0040 3043 TCI 
0020 3044 TC 
0010 3045 TC 
0002 3046 TCt 
0001 3047 Ta 


007A 3049 TC 
351 * | 


OO7C 3053 Ta 
54 * 
WS * t 
WS * 

9080 3057 1 
wos * 


OO7D 3060 TH 


29610000 
620000 
29630000 
29640000 
19650000 
29660000 
29670000 
9680000 
29690000 
29700000 
29710000 
29720000 
29730000 
29740000 
29750000 
29760000 
29770000 
29780000 
29790000 
29800000 
29810000 
29820000 
29830000 
29840000 
29850000 
29860000 
29870000 
29880000 


29900000 
29920000 


29940000 
29950000 


29970000 


WO9/i1/81 12/08/81 02:16 


4237" 
0182 4237 


4155* 4169 
0180 


02 0020 3007 TCRCNSPO EQU X'20' 3 OPTION CANCEL PENDING 
10 be set eux i TASK_IS_IN tie TERMINATION 
0 2 CPTI-CONTTE PROC 


TAKE ASYNC EXIT ON ERROR ONLY 
DISKETTE ORIENT HAS BEEN PROCESSED 


ALLOCATED WORK STATION COUNT 
B CURRENT ACTIVE TERMINAL COUNT 
0071 3016 TCBCAT EQu rcamcT CURRENT ACTIVE TERMINAL VARIABLE 


012 TCBOKO «=EQU X'0) 


0070 3014 TCBAWSCT EQ te ALA 


‘“ 072 3017 yore EQu_ TCBCAT+) eT bed Rr ALLOWED 
06 0074 3019 TCBCNCNT EQU Hanh +1 NOT CANCELABLE ce Oot 

0075 3021 TCBIQCNT EQU TCBCNCNT+1 = NOT INQUIRABLE COUNT 
" 0076 3023 TCBARQCT EQU  TCBIQCNT+1 — ACTIVE REQUESTOR COUNT 

0077 3024 TCBSTAT6 EQU TCBARQCT+1 = STATUS BYTE 6 


0080 3026 TCBATNS EQU  X'‘80' TASK ATTACHED NON-SWAPPABLE 
0040 3027 TCBDSKTR EQU X‘40' DISKETTE CANCEL RECURSION INDICATOR 30280000 


09 0020 3028 TCBDUMP EQU X'‘20' DUMP SHOULD BE TAKEN INDICATOR 30290000 | 09 
0010 3029 TCBSFILK EQU  X‘10' SECURITY-INITIATOR INTERLOCK. 30300000 
0008 3030 TCBNDUMP EQU  X‘08" NO DUMP WAS TAKEN FOR ERROR CONDITION 30310000 
1 0004 3031 TCBWSILK EQU  X'04" WORKSTATION QUEUE SPACE INTERLOCK 30320000 | 10 
0002 3032 TCBSNARQ EQU  X'‘02' SNA_REQUIRED 30330000 
0001 3033 TCBDEDO EQU “x‘Ol* DEDICATION OVERRIDE INDICATOR. 30340000 ‘i 
1 
0078 3035 TCBBAT EQU  TCBSTAT6+] BATCH ACTIVE TIMEOUT COUNT 
0080 3036 TCBUDMPR EQU X*80° MEDIUM PRIORITY (SEE TCBPRIOR) 30370000 
12 0005 3037 BATCOUNT EQU 5 NUMBER OF TIMEOUTS ALLOWED. 30380000 
3038 * ONLY BITS 1-7 APPLY TO BATCOUNT. 
13 0079 3040 TCBSUSPS EQU TCBBAT+1 SUSPENSION STATUS INDICATOR B 
0080 3042 TCBSPUNK EQU  X‘80° TASK SUSPENDED DUE TO UNLOCK 30430000 
14 0040 3043 TCBSDTSO EQU  X'40' TASK SUSPENDED DUE TO SYSTEM OPERATOR 30440000 | 14 
0020 3044 TCBINGSP EQU X‘20' TASK SUSPENDED DUE TO INQUIRY 30450000 
0010 3045 TCBSPLSP EQU § X‘10° TASK SUSPENDED DUE TO SPOOL SUS/RES 30460000 
15 0002 3046 TCBSOTAC EQU X‘02' TASK SUSPENDED DUE TO ADDRESS COMPARE 30470000 | 15) 
0001 3047 TCBWIOSP EQU  X‘01' TASK SUSPENDED DUE TO WS 1/0 ERROR 
1 OO7A 3049 TCBWAFLG EQU TCBSUSPS+1  WSWA INITIALIZATION STATUS. 30500000 | 16 
- 3051 * SEE TUB MACRO (BYTE TUBUAFLG) FOR BIT DEFINITIONS WITHIN TCBUAFLG. 
7 1 
OO7C 3053 TCBSMFPT EQU TCBUAFLG+2 SMF POINTER 30540000 
3054 * THE FOLLOWING EQUATE IS USED TO SET ON THE X‘S0° BIT IN THE HIGH 30550000 
18 3055 * BYTE OF THE SMF POINTER FIELD. CURRENTLY THIS FIELD IS USED AS 30560000 | 18 
3056 * A SWAP-IN COUNTER INSTEAD OF AN ADDRESS FIELD. 30570000 
(0080 3057 TCBSMFDN EQU  X"S0° SMF HAS PROCESSED THIS TCB 30580000 
1 3058 * 19 


0070 3060 TCBX EQU  TCBSAFPT+1 «= AMOUNT OF TASK SWAPPED OUT 


0 


£03 


7SCPR ATSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION PRE «24 «YO9/11/81 12/08/81 07:16 


ERR LOC OBJECT CODE AGOR ST SOURCE STATEMENT 


0006 1131 GREDERA —Q)  SRBDCPA GRAGR AID BYTE © GNEW RQUATE VALUED 
9001 1132 ERBIOER EW X01" 


SNSCPR MTISCPR - MA 


60 WH 1 5 ¥. /08 . 02: if 
ERR LOC OBJECT COD 
30080000 
30100000 
30110000 ) 0080 3064 TCRSPWTR EQU X‘80' SPOOL WRITER ID 
30120000 0040 3065 TCBSPLAS EQU  X‘40' SPOOL TERMINATION 
SEN 10130000 
0080 3067 TCBLEN EQU TCBSTAT7+2 LENGTH OF TCB + EXPANSION. 
30150000 3068 *** END OF EXPANSION ®*® 
E Sie | ; 3070 ARERRRARNRAERARARARTRARRRARRARAR RAR ERRRRERRRRRERARRRRRARRRRRIN 
30180000 3071 * x 
30190000 | O72 ® TERMINAL UNIT BLOCK FOR TERMINALS * 
30200000 3073 * ‘ 
3074 RARLRKKRARAARAAARARAAARAKKARAARAAAKAAAAKARARAAKKAAAAKAARAARRARARARARKK 
WPT 075 * 00 0 02 803 *04 *05 = * 06 o7* 
3076 * ECM = * COMPL * FLAG * CMND * CMOD * UNIT * DATAa ® 
30240000 77 RARKRERAARARRAKRARRARAKRAAAAARAARARAAAAKAAKRAAAAARAARAAAAAAARAAAARAK 
30250000 3078 * 08 09 * 0A OF *® 
g 3079 * COUNT 1 SENSE BYTES e 
30270000 3080 RHRARARKRARKRAKAARAKRAKRAKAAAAARRARARAAARAAAAKAARRARRARAARARRAAAAKAAK 
ATOR 10280000 3081 * 10 N* 12 3*14 *15 *16 *17 *® 
30290000 3082 * Tcba » CHAIN *® DEVID * QHOR * ERPCT * ERBFG * 
30300000 3083 RKKRAAAKRAKRAKRAAAARARAKRARRAARARRAAAAKAARARRAAAAAAARAAKAARARARARARK 
DITION 0310000 3084 * 18 = =—* 19 IA* 1 FIC 1W*1E *1W * 
“4 30320000 3085 * ERAID * MIC OPTS * SIOCT * ERRCT * = WS- * 
30330000 3086 RAAARAKRARRAKAKRARRKRARAKRAARAKRAARAAAAARARKKRARAAAAARARAARARAAARARAKRK 
0340000 3087 * = 20 * 21 22 * 23 244*25 #*26 *27 * 
3088 * 1D * USWA x CB * AID * CPAID * RESVD * 
30360000 3089 RRRRAAAAKRAKRRAKRRARARAARARRARRARAAHRARARKRARAAARRRRRKRARRAAAKRARKAARK 
30370000 3090 * 28 2F ® 
30380000 3091 * USER ID e 
30390000 3092 RRARRARAKARKARAKRAKRRRRKRRARRARARRARRAKRARAKARRARARRRARRARAAAAAAARARAKK 
093% 300 * 31 32 ® 33 34°35 *36 = * 37% 
30410000 3094 * OPSTS * JCBa x TUBTUB ® ATTRI * ATTR2 * ATTR3 * 
3095 RAARRRAKKRKKRRKRKRARARRKARARRARKAARRRAKRAKRAARAAAARRAARAARAKRAKRARRR 
30430000 «3096 * 38 390 SAR OB x * 30 36 *3F * 
-RATOR 30440000 3097 * ATTR4 * ATTRS * ATTR6 * CTSAV id APRAT * SECT * 
30450000 098 RARAAKAAKKRAKARKKRAKRARRAKRREARRAAARARREARRARKKRAKRRARRRARAARRKKRKKRKRA 
RES 30460000 3099 * 40 41 * 42 Bm *H 4H 4 * 
PARE 30470000 3100 *® ASGNL * ASGNa ® ATTR? * ATTRE * HELPM x 
3102 * 48 =—* 49 
30500000 3103 * ATTRO * RFSS 
BWAFLG. 30520000 
HIGH 30550000 3108 * * * * 
AS 30560000 3109 * ATTRB * TUBDGTUB 
30570000 
30590000 
30590000 
30610000 


PAGE 24 O9/11/81 12/08/81 02:16 SSSCPR SPSCPR ~ MAIN STORAGE IPL - CORPAND PROCESSOR FUNCTION 
ERR LOC OBJECT CODE ADOR S"AT SOURCE STATEMENT 


bo @ 
> 


a) i  ) a ) ee 


£001 0001 0136 


C 001 


0516 


CNCULEN C001 0006 0540 
CMCULOG C001 0010 0512 


CACUMGA 


30690000 
30700000 
30710000 
30720000 
30730000 
30740000 
30750000 
30760000 
30770000 
30780000 
30790000 
30800000 
30810000 


30830000 


SE 25 WOO1I/81 12/08/81 02:16 


TS GW 


* 


C 001 


0537 


4631 


FO5 


B12 RAARRAARAARAARAAAAERRARARAARAARRARRARRARARARAARAAR AKA RAR AAA RAR 


3113 * 
3114 * TERMINAL UNIT BLOCK FOR PRINTERS 
3115 * 
3116 *RARRNARRRAAARARRARAARARARARRRAARARRARAAAAARARAAARARRARARA RARER 
117 * 00 ol =* 02 03 04) * 05 * 06 07 * 
3118 * ECM =* COMPL * FLAG * CYND * CMOD * UNITa * DATAA 
3119 RARARARARRARRARRARRAAAERAARRRARARARRARRARARARARR RRR RR 
3120 * 08 09 * OA OF * 
3121 * = COUNT x SENSE BYTES * 
3122 RRRAARARRAARAARRARRARRARERRARARARARAARARRARRARARRARRARARARARARARRR 
123 * 10 n* 1 3ele *15  * 16 2X17 
3124 * TRA = * CHAIN *® DEVID * QHOR * ERPCT * ERBFG * 
3125 RARAARAARRARRARARAARARARRRAARARRAARARRRERARRARARARARARRARARRARRAR 
126% 18 19 ww FIC Wie * iF 
3127 * ERAID* = MIC *oprs * S10CT ® ERRCT *® WS- * 
3128 PAARARAARHARKARRAARARRARRERARAAARARARRERARARRARRARRRARRARARRARRAR 
129 20 * 21 22 * 23 
3130* 10 * CFéa * RESVD * 
313] RARAARKARRARRARRAARAARRARARARRRARARRRARRARRRARARRARRRARARARRARARA 
3132 * 28 Bee *2 2 "2 
3133 * FORMS NUMBER * FMUN * CRLN * FXPP * DPRST * 
3134_***0PTIONAL ADDITION BELOW********0PTIONAL ADDITION BELOW****** 
3135 * 30 *® 32 33* 34 = %35° = 37: 
3136 * TUBPSUBC * TUBPGTUB *® PATRI * PLPI * RESERVED 
3137 ***0PTIONAL ADDITION ABOVE********0PTIONAL ADDITION ABOVE****** 
3138 * 38 * 393A OB xX * 30 3E * 3F 
3139 * RESERVED RESERVED RESERVED 
3140 ***0PTIONAL ADDITION ABOVE®*®*****0PTIONAL ADDITION ABOVE****** 


#PSCPR ANSCPR - MAIN 5 
ERR LOC OBJECT CODE 


LPUrAUnS © OUL Uir 0454 = 045) 
16|CPOPADR4 C 001 0022 0436 0437 0439 
CPOPCNT C 001 0023 0439 0441 
CPOPLNI C001 0017 0429 0430 
CPOPLN2 C 001 OO1A 0431 0432 
CPOPLN3 C 001 O01D 0433 0434 
CPOPLN4 C001 0020 0435 0436 
CPOPS §= C001 0022 0437 

CPRSV C001 OOFF 0607 
CPSTATA C 001 OOFA 0598 

CPTUB C001 OOFC 0605 0606 3960* 
CPURK C001 0000 0269 0415 


CPWRKEND C 001 OOFF 0270 


F06 


Wy 


18 
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SYECPR MMSCPR - MAIN STORAGE IPL - CO 


PAGE 62 09/11/81 12/08/81 02:16 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


RARAERKAAK 31130000 02] 3142 RAAARRAAAARAAARARAAAARARARAREAARARAARARARARARRA RARER RR IRI IR III 

* 31140000 3143 * TERMINAL UNIT BLOCK (TUB) 

® 31150000 

® 31160000 | 0: 03 
RARRARERER 

07 x ee 3146 RRARAAARARAACRRARRARRARRRRARRARARRRAARRAAKAARARRRKRARAAKARAAAAKRKAAARARKAA AKAN 31470000 

Alfa ® 31190000 3147 * COMMON SECTION OF THE TUB ® 31490000 | 04 
RAAAAAARRR 31200000 3148 RRAAAAARRAAARARAAARARRARRAAARRARRAARRARACRARRAARRARKAKARARARAAAAARARAAAKRKRKAKK 


OF * 31210000 
* 31220000 09} 
slotolataiatetatatal 31230000 TERMINAL [0B / PRINTER DCB 
sV ® 31240000 
* ERBEG * 31250000 06 
LRARARRARR 31260000 EVENT CONTROL MASK 
iF OF 31270000 
= W-* 31280000 | 07) 
227 Rx 31300000 0020 3158 TUBSNIO Eq X‘20° . NON 1/0 EVENT 31590000 
= RESWD * 31310000 3159 * Eq X"10° . RESERVED CMUST BE ZERO) 31600000 | 0d 
CRRA 31320000 3160 * ew x‘08' « RESERVED CMUST BE ZERO) 31610000 
°** 31330000 3161 * equ xo . RESERVED (MUST BE ZERO) 31620000 
® DPRST * 31340000 3162 * equ x‘02' . RESERVED (MUST BE ZERO) 31630000 | OY 
Loran 31350000 3163 * ew Xx‘01" -_RESERVED (MUST BE ZERO) 31640000 
RT x 460000 
xD * 31370000 | Ii 0001 3165 TUBCONPL EQU = TUBECT+1 108 COMPLETION CODE 10 
OVER ERE 31390000 
= = Fis90000 3167 TUBSACTV EQU XK 
i 31400000 | 1 0000 3168 TUBSCHPL EQU X"40" 
OVERSEES 31410000 3169 * tw x‘20° NED 
3170 * fw xo . RESERVED GUST BE ZERO) 31710000 
371 * fw x08" . NOT USED 31720000 | 12} 
0004 3172 TRASGD EWU Xx"O4" - INPUT SUFFER ASSIGNED 31730000 
3173 * bw x‘ar" - RESERVED FOR PRINTER 31740000 
0001 3174 TUBSERR EW xXx"O1" ~ ERROR FOUND INDICATOR 31750000 
0000 3175 TUBSRACT EU X"00" 
I 0002 3177 TUFLAG EQ BOP +1 14 


SUE: cy 
Ow 3190 WE? EW x"a" 
020 3181 ew 1a 


DeQuruc © OU 0020 13/9 
16]DMPINPRG C 001 0040 0734 
DMPROTCT C 001 0080 0731 
DPSUSAC C 001 0020 0737 
DSABL C001 0080 0143 
DSPADACT C 001 0010 0789 
DSPERPND C 001 0004 0791 
DSPEXAM C001 0001 0793 
DSPFCUR C 001 0008 0790 
DSPHOLD € 001 0002 0792 
DSPRGRST C 001 0040 0787 
OTF C 001 0002 0102 


17 


DIERRMIC C 001 
DLERRTCB C 001 
OIFRCTCB C 001 


16 


1 


OTWEND A001 0888 3911 3904 
FO7 
63 ¥O9/11/81 12/08/81 02:16 #YSCPR MNSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTION PAGE 64 VO9/11/81 12/08/81 02:16 Hi MTISCPR MTISCPR - MAIN STOR 
01 ; 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


RARRER 31430000 | 02 00C3 3195 TUBSCNCL EQU  X‘C3" « CANCEL INVITE OPERATION 
® 31440000 0080 3196 TUBREXEC EQU _X'80' «REMOTE EXEC 1/0 OPERATION CODE 
RRRRRR 31450000 OORT 3137 TUBRFOLL EQU X°81° ~ REMOTE INVITE OPERATION 
0 0083 3198 TUBRCNCL EQU  X‘83' . REMOTE CANCEL INVITE OPERATION 
0040 3199 TUBMLOCL EQU _x'40' . THIS TUB IS A LOCAL TUB 
ARERR 31470000 (00c0 3200 TueMSUS EQUXx'CO" . COFF) IF OFF, THIS IS A SUB 
k 31480000 | 04 0003 3201 TUBDEVIC EQU  TUBCHND DEVICE ADDRESS 
RRAARK 31490000 
0004 3203 TUBCMOO EU TUBCHND’1 108 COMMAND MODIFIER CODE 
31510000 | 05) 
31520000 OOA7 3205 TUBSPWI EQU  X‘A7" «PUT WITH INVITE OPERATION 
31530000 0027 3206 TURSOUPT EQU_X'27" . OUTPUT OPERATION 
06 0002 3207 TURSSAVE EQU X‘02" . SAVE TABLE OPERATION 
31550000 0006 3208 TUBSSAVS EQU  X‘06' ._ SAVE. SCREEN OPERATION 
0662 3209 TUBSROSN EQU X°62" ~ READ SCREEN INPUT OPERATION 
31570000 | 07 0042 3210 TUBSRDIN EQU  X*42" . READ INPUT FIELOS OPERATION 
31580000 0007 3211 TUBSRSTR EQU  X‘07" ._ RESTORE OPERATION 
31590000 0022 3212 TUBSROMD QU X'22" ~ READ MODIFIED IMMEDIATE 
31600000 | 03 
31610000 0005 3214 TUBUNITa EQU TUBCMOD+1 UNIT ADDRESS 
1620000 (0007 3215 TUBDATA® EQU  TUBUNITa*2 DATA BUFFER ADDRESS 
31630000 | 09 0009 3216 TUBCOUNT EQU TUBDATAR*+2 DATA TRANSFER BYTE COUNT 
31640000 
OOO 3218 TUBSENSO EQU  TUBCOUNT=1 SENSE BYTE O 
31660000 | 10 


3220 * DATA STREAN REJECT *® REFERENCE GROUP 1 IN TUBSENS4 
3221 ® Eq X*80° - DATA STREAM REJECT 

1 3222 * US CONTROL FIELD ERROR * REFERENCE GROUP 2 IN TUBSENS4 
3223 * Eq K*40° - WS CONTROL FIELD ERROR 
3224 * RESOURCES NOT AVAILABLE = * REFERENCE GROUP 3 IN TUBSENS4 

2} 325 * eq x‘20° ~ RESOURCES TEMPORARILY NOT AVAILABLE 
3226 * ew ‘10° - WS CONTROLLER DBO/UBI PARITY CHECK 
3227 * * SEFERENCE GROUP 4 IN TUBSENS4 
3228 * tq x‘0s" - OPERATION CHECK 


- WS CONTROLLER STORAGE PARITY CHECK 


a? TE PBLIDEING LABELS ERE SED BY BPAY TOD IMDTCOTS “(aa @ OYSTER or 


DINUXNT4 C 001 


DIDSPFLG C 001 0024 ¢ 
16]D10SPTCB C 001 0030 
OIDSTIME C 001 0070 
DIDSTQE € 001 OO2F 0872 0873 
T7{DiENDA = 001 0076 1044 
OIERRACE C001 O01B 0768 0769 
DIERRNIC C 001 0019 0766 ©0767 
1G/DLERRTCB C 001 001A 0767 0768 


DIFRCTCB C 001 003C 0904 0905 
DIFREEPT C 001 0020 0870 0871 
I9]DIGPFLAG C 001 0036 0883 0894 
DIHCSTGA C001 0071 1015 —:1017 
DIHCSTGD C 001 0072 1017 1023 


OLREGPTR C 001 


FO8 
E64 VO5/11/81 12/08/81 02:16 ] [*ISCPR MSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTIO PAGE 65 VO9/11/81 12/08/81 02:16 “ MMSCPR MISCPR - MAIN S 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
3249 * EQU  X'20' . UNIT NOT AVAILABLE (PRINTER ONLY) 32500000 | 0: 
3250 * equ X‘10" «OUTSTANDING STATUS 32510000 
3251 * EXCEPTION STATUS EQUATES START 32520000 
3252 * EQU X'0E' . NO STATUS CALL BITS OFF) 32530000 | 0: 
3253 * EQ X‘02' « NULL OR ATTRIBUTE ERROR 32540000 
3254 * EQ x"04" ~ INVALID ACTIVATE 32550000 
3255 * EU X'06' . RESERVED 32560000 | 04 
3256 * EQ X‘08' ._INVALID COMMAND OR DEVICE 1D 32570000 
3257 * EQ x‘0A" . INPUT QUEUE OR STORAGE OVERRUN 32580000 
3258 * EQU X'OC’ . INVALID REGISTER VALUE 32590000 | 0 
3259 * EQU X'0E' «POWER ON TRANSITION 32600000 
3260 * EXCEPTION STATUS EQUATES END 32610000 
3261 * Eq Xx‘o1' . EVEN/ODD RESPONSE LEVEL 32620000 | 06) 
0000 3263 TUBSENS3 EQU  TUBSENS2+1 SENSE BYTE 3 32640000 ‘4 
OOOE 3265 TUBSENS4 EQU TUBSENS3+1 SENSE BYTE 4 - ERROR CODES 32660000 
3267 *® GROUP 1 - DATA STREAM REJECT ERRORS 32680000 | 08 
3268 * (C REFERENCE TUBSENSO BITO ) 32690000 
3270 * EQ x'ol" . PREMATURE END OF DATA STREAN 32710000 | 09 
3271 * EQ X‘02" -_ INVALID ROW/COLUMN ADDRESS 32720000 
3272 * EQ K"03" ~ RA ADDRESS IS LESS THAN PRESENT VALUE 32730000 
3273 * OF THE ADORESS COUNTER 32740000 | 10 
3274 * EQU X'O4" . ESCAPE CHARACTER MISSING OR INVALID 32750000 
3275 * CORN CODE 32760000 
3276 * EQU X'05" . INVALID START FIELD LENGTH 32770000 | 11 
3277 ® FU X'06" - IWALID START FIELD ADDRESS 32780000 
3278 * EQ x‘O7" ~ RESTORE ISSUED TO WRONG DISPLAY STATION 32790000 
BLE 3279 * EQU X‘C8" . INPUT FIELD PAST END OF SCREEN 32800000 | 12 
cK 32780 * EqU x09" ~ FORMAT TABLE OVERFLOW 32810000 
3281 * tau X"On" ~ DATA URITTEN PAST END OF SCREEN 32820000 
3282 * equ x"08" . START OF HEADER LENGTH >= 3 32830000 
cK 3283 * fqu x‘0c* . ROLL PARFETER ERROR 32840000 
3284 * ta x0" ~ TOO FWY FORPAT CONTROL WORDS DEFINED 1 32850000 id 
3286 * GROUP 2 - US CONTROL FILED ERRORS 32870000 
3287 * C REFERENCE TURSENSO BITI ) 32880000 
3789 * ew x‘o1" . GNALID CONWED MODIFIER 32900000 
3290 * wu x"a2" ~ IWALID BYTE COUNT CO OR 4096) 32910000 
3291 * fu x03" . OEVICE oT FOUND 32920000 | 16 
3292 * fe xo . BYTE COUNT ~ ACTUALLY TRANSFERED 32930000 
3234 * GROUP 3 - RESOURCES TEMPORARILY SDT AWRILARLE ERRORS 32950000 | 1 
25 * ( REFERENCE TUBSENSO 8172 > 32960000 
37 * ew xu" - PRINTER BIST CURING URTTE ATTENPT 32ee0000 | 13 
oon? 3298 NEWER EW x"O7~ . 0S DN COR rE 32990000 
. aw ra ~ SEVICE OLDE Fae BG0000 


ral 


DINUXNT4 C 001 0004 0691 0692 
DINUXNTS C 001 0005 0692 0693 
DINUXNT6 C001 0006 0693 0694 
DINUXNT? C 001 0007 0694 0702 
17{DIPGFULL C 001 0080 0718 
DIPMRPSR C 001 O05A_ 0952 
DIPREVRB C 001 0055 0943 
DIQHSAVE C 001 0038 0895 089% 
DIQSAVE C001 O04E 0929 0934 


DIQUEUEA C 001 O03F 0907 0908 
DIRDCS C001 0060 1002 1004 
DIRDMS C001 O06C_ 1001 1002 


FO9 


1 


0953 


18 


ECMREAL C 001 


1 
ECNSYSLG C 001 


SCPR MSCPR - MAIN STORAGE 
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MASCPR MMSCPR - MAIN STORAGE IPL - COMMAND PROCESSOR FUNCTIO 


Y09/11/81 12/08/81 02:16 01 


01 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADD 


32500000 | 02 0006 3303 TUBSRDUK EQU X'06' . READ ISSUED TO UNLOCKED KEYBOARD ERROR 02 
32510000 0007 3304 TUBSPOFF EQU  X'07' ._WS_IS POWERED OFF 33050000 0018 
32520000 3305 * EQU x‘08" ~ RESERVED 33060000 
32530000 | 03 3306 * EQ x‘09' . SAVE OR RESTORE ERROR 33070000 | 0 
32540000 
50000 308 * GROUP 4 - OPERATION CHECK ERRORS 
32560000 3309 * ( REFERENCE TUBSENSO BIT4 > 33100000 | 04 
32570000 
32580000 331 * EU x01" . SERDES TIME OUT 
32590000 3312 * EQU X'02' . TIME OUT ON CYCLE STEAL DATA 33130000 | 05 
32600000 3313 * FQU X‘05' ._ ATOM NOT PROCESSING KEYSTROKES 33140000 
32610000 0010 
32620000 3315 * GROUP 5 - SCREEN FORMAT ERRORS 06 OolE 
3316 * (REFERENCE TUBSENS1 BITO ) 0020 
32640000 0022 
07 3318 * fQU X‘ol' . INVALID FIELD LENGTH ERROR 07 0022 
32660000 3319 * equ x‘02' ._ RESEQUENCE ERROR IN FORMAT TABLE 33200000 0024 
3320 * FQU x‘03" . CHECK DIGIT ERROR 3210000 
32680000 08 00 | 
32690000 OOF 3322 TUBSENSS EQU TUBSENS4+1 SENSE BYTE 5 33230000 
3323 * EQU X*08" 33240000 
32710000 OOOF 3324 TUBSENSE EQU TUBCOUNT+6 © SENSE BYTES 33250000 | 09 
32720000 0011 3325 TUBTCBa QU TUBSENSE*2 —_TCB ADDRESS FOR DATA BUFFER ATRS 
32730000 
32740000 | 1 3327 * 10 
32750000 3328 * ERROR RECOVERY BLOCK (ERB) 33290000 
32760000 3329 * 
32770000 | 1 a8 
32780000 0013 3331 TUBCHAIN EQU TUBTCBa+2 TUB CHAIN FIELD 
32790000 
32800000 0014 3333 TUBDEVID EQU TUBCHAIN®] TUB DEVICE ID FOR ERP 2 
32810000 
37970000 OOEO 3335 TUBSTANZ EQU X"EO* ~ 5211 LINE PRINTER 0025 
32830000 O0E1 3336 TUBSPRMA EQU X‘EI‘ . 5256 WORKSTATION SERIAL PRINTER 33370000 0026 
32860000 QOE2 3337 TUBSNGLD EQU  X‘E2° - 650 LPM LINE PRINTER 33380000 0027 
32850000 OOE3 3338 TUBSMITR EQU  X"E3" . PUTRE PRINTER 33390000 002F 
i 00CO 3339 TUBSKBOP FQU Xx‘CO" . KEYBOARD DISPLAY WORKSTATION 14 0030 
32870000 0032 
32880000 0015 3341 TUBGOR EQ TUBDEVID-1 QUEUE HEADER POINTER FOR PRINTER Z 0034 
37900000 0016 3343 TUBERPCT EQU TUBGHDR+1 ERP CONTROL BYTE 0035 
32910000 
3z920000 | 1 36* 16 0080 
32930000 33065 * SEE THE ERBOCTL FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 33470000 0040 
3a = 0020 
32950000 | 1 + 0010 
37960000 0017 3349 TUBERSG €QU TUBERPCT+1 ERB FLAG BYTE 33500000 0008 
0004 
327980000 31 * S 0002 
37990000 3 * SEE THE GRSOFLG FIELD OF THE GR NACRD FOR ASSOCIATED MKS. 33530000 ‘001 
(3000000 3353 * 
33070000 ; 0036 


0013 3355 TURERAIS QU = TUBERBFG+1 


AGE = 66 «09/11/81 1 


ARD ERROR 


BLE 


D ASKS. 


D PASS. 


08/81 02:16 


ECMCMPL C001 0040 1061 
ECMCPOCL C 001 0025 1055 
ECMCSB C001 0027 1057 
ECMGW = «C001 «(0003 «1068 
ECMINQ C001 0022 1052 
ECMIOERR C 001 0021 105) 
ECMLOCK C001 0010 1063 
SIECMMASK C001 0001 1059 
ECMNSKIP C 001 0080 1048 
ECMPARN C001 0000 1047 4021 
ECMREAL C 001 0040 1049 
ECMSYSLG C 001 0028 1058 


ECNTAS € 001 0026 1056 


F10 
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1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT COt 
02 
001B 3358 TUBOPTS EQU  TUBMIC+1 ERP MESSAGE OPTIONS 
3360 * 03 
3361 * SEE THE ERBDOPT FIELD OF THE ERB MACRO FOR ASSOCIATED MASKS. 
3362 * 
¢ M 
3364 -* 
365 * MISCELLANEOUS DATA 
3366 ® 05 
0010 3368 TUBSIOCT EQU § TUBOPTS*2 START 10 COUNT 
OOLE 3369 TUBERRCT EQU TUBSIOCT+1 ERROR RETRY COUNT 06 
0020 3370 TUBWSID EQU  TUBERRCT+2 LOGICAL ID OF THE TERMINAL OR PRINTER 
0022 3371 TUBWSWA EQU TUBWSID+2 SS OF WORK STATION WORK AREA 
0022 3372 TUBPCFGA EQU  TUBWSWA SS OF PRINTER CONFIGUARTION RECORD 07) 
0024 3373 TUBTCB EQU TUBPCFGa+2 TUB OWNER TCB ADDRESS AND ... 
3374 * PRINTER QHOR 
0G | 3375 TUBCOMON EQU  TUBTCB END OF COMMON PORTION OF TUB 08 
O9 
3377 RAAARKAKAARARAARARRARRARARRRARAARRARRAAARARRKAAARARAKRAKKARRAAAKKRREREKKRKA 33780000 
3378 * DEVICE DEPENDENT SECTION OF THE TUB ® 33790000 | 10 
u 
3381 * 33820000 
3382 * DISPLAY DATA 33830000 
3383 * 33840000 
0025 3385 TUBAID €QU TUBCOMDNe] AID BYTE CENTER, REC ADV . ETC. )CDISPLAYS) 
0026 3386 TUBCPAID EQU TUBAID=1 AID BYTE CINQUIRY, SYS REQ) (DISPLAYS) 
0027 3387 TUBORESY EQU TUBCPAID*1 RESERVED BYTE 
002F 3388 TUBUSER EQU ‘TUBORESV*S OPERATOR ID : 
0030 3389 TUBOPSTS EQU TUBUSER+1 © OPERATOR STATUS 14 
0032 3390 TUBJCBA EQU TUBOPSTS#2 OF XB 
0034 3391 TUBTUB «EGU «TUBICBa*2 ©“ TUBCHAIN FOR SYS REQ AND INQUIRY 
5 
0035 3393 TUBATIRI EQ TUBTUB+1 ATTRIBUTE BYTE 1 
0080 3395 TUNEN EQ X"S0" - FOSTER CONSOLE 16 
0040 3396 TURAN =EQU X"40° - ALTERNATE CONSOLE 
0020 3357 TROT EQ x20" ~ COTW TERTINALCGID-DATA TERKOFF) 
0010 3398 TUBSGH «EU X"10" . TERUMAL SIGED GW 1 
0008 3399 TUBTSAQ EWU X"08" ._ TEST REQUEST MDE 
0004 3400 TUES] EQU  KO« ~ 28 INITIATION MOT ALLOLED 
0002 3401 TUBLIGFR EQU = x"02" . WIA FORWITED ITH LIO DISPLAY senzo000 | 18 
0001 3402 TUBFONSL FOU Xx"01" . CONSOLE MODE FORDED BY 1/0 ERROR 34030000 
0036 3408 TUBATIRZ QU TUBATT®-1 «© TERMINAL POE ID DISPLAY peasmono | 19 


ERBMNLOG C001 0010 1108 
ERBMNRR C001 0004 1096 
ERBMNRSP C 001 0020 1107 
ERBMPERR C 001 0001 1119 
ERBMPOST C 001 0008 111 
ERBMPUR C001 0003 1097 
ERBMRERR C001 0003 1117 
ERBNORM C001 0000 1133 
SIERBPTASK C 001 0001 1123 
ERBSOPO C001 OOFO 1138 
ERBSOPO C001 0080 1139 
ERBSOP1 C 001 0040 1140 
ERBSOP2 C001 0020 1142 


1 


17 


Fl 
WOo/Ti781 12/08/81 02:16 
3407 * TERMINAL MODE INDICATORS 
33590000 3408 RARKRARAKK HK KARRAARRARRAAAAAAARAAAAAKAARARAAAAAAKEAARAARRARARAAAR AAR AR 
3409 * TWXX - STANDBY MODE 0X00 - INITIAL MODE * 
33610000 3410 * OOXX - CONSOLE MODE = * 0101 - DATA MODE * 
33620000 3a * 0110 - COMMAND MODE * O111 - INTERRUPT MODE * 
33630000 3412 RRKAAAAAAAARAARAARAAAAAAAARAARAARAARALRANAAAARARAARRARAKARRARARRAKAAKARK 
0080 3413 TUBMSTDY EQU  X'80" . TERMINAL IN STANDBY MODE COND 
33650000 0040 3414 TUBMCNSL EQU _X'40' «TERMINAL IN CONSOLE MODE (OFF 
33660000 0040 3415 TUBMMSTN EQU_X"40" TERMINAL IN WORKSTN MODE COND 
33670000 0020 3416 TUBMCMD QU X‘20" . TERMINAL IN CORMAND MODE CON) 
0010 3417 TUBYDATA EQU._X‘10° «_TERMINAL_IN DATA MODE CON) 
33690000 0070 3418 TUBMOME EQU X'70" . TERMINAL IN DATA MODE ESCAPE COND 
33700000 0030 3419 TUBMINIT EQU  X*30 «TERMINAL IN INITIAL MODE (OFF) 
33710000 
33720000 0008 3471 TUBRENUA EQU _X°08" > RENU DISPLAY ACTIVE 
33730000 0004 3422 TUBSTATA EQU  X‘04" . STATUS DISPLAY ACTIVE 
33740000 00023423 TUBINPA QU. X‘02" «_ SYSIN/SYSLOG DISPLAY ACTIVE 
33750000 0001 3424 TUBRSGA EQU. X"O1" ~ MSE DISPLAY ACTIVE 
33760000 | 03 
0037 3426 TUBATTRS EQU _TUBATTR2+1 INVITE INDICATORS 
0080 3428 TUBIIS QU X'80" . INVITE SCHEDULED TO TUB 34290000 
0040 3429 TUBIMI _EQU_X"40' «IMPLICIT INVITE TO TUB 34300000 
7 33760000 0020 3430 TUBIPS EQU X'20" . TUB INVITED VIA PRUF 34310000 
33790000 0010 3431 TUBIARF EQU  X‘10' . AUTO RUF INVITE 34320000 
33800000 0008 3432 TURSIIS EQU_x‘08' ._ SAVE FOR TUBLIS STATUS 34330000 
(0004 3433 TUBSIMI EQU X04" » SAVE FOR TUBIMT STATUS 34340000 
0002 3434 TUBSIPS EQU X‘02" . SANE FOR TUBIPS STATUS 34350000 
33820000 0001 3435 TUBSIARF EQU_X‘01' SANE FOR TUBIARF STATUS 34360000 
33830000 
33840000 0038 3437 TUBATTRS EQU TUBATIR3+1 — INQUIRY/SYS REQ AND MISC 34380000 
33860000 (0080 3439 TUBHZQ EQU X"80" 34400000 
33870000 | 13} 0040 3440 TUBINGI EQU  X"40" 34410000 
33890000 0020 3441 TUBING? EQU__X°20" ol 
3390000 | - 0010 3442 TIGR EQ X"10" 
33900000 | 14 0008 3443 TUBRSTI EQU x‘08" 
33910000 0004 3444 TUBRST2 EQU X‘04" 
33920000 002 3445 TUBLIOS EQU  Xx"02° ~ SYSIN/STSLOG DISPLAY HAS BEEN SAVED 
- [DELETE FUNCTION IS ACTIVE 
33940000 
3396000C 
33970000 
[3960000 
33990000 
34000000 
34010000 
34020000 
34030000 
39050000 


18] FIADVTOC C 001 
FIALLGCD C 001 
FIALLGIN C 001 
FIALLGLB C 001 
FIALIVTA C 001 
FIAL2VTA C 001 


Ol 
ERR LOC OBJECT CODE 
02 


03} 


07) 


10 


1 


MNSCPR MMSCPR - MAIN STORAG 


ADL 


003 


888s 8 sgsssssss 3g sgsisg 


FIADRFED C 001 0027 1305 
FIADRFST C 001 0015 1230 
16]F1ADSDIR C 001 000B 1170 
FIADSFLG C 001 000D 1182 1214 
FIADSMEN C 001 0015 1228 
17/FLADSTOA C 001 0018 1233 1235 
FIADSTIX C 001 0031 1323 1325 
FIADTYPE C 001 000C 1172 ~~ 1182 


J8]FIADVTOC C 001 001D 1237 1262 1271 1366 


FIALLGCD C 001 0028 1343 
FIALLGIN C 001 0040 1346 
19]FIALLGLB C 001 0020 1348 
FIALIVTA C 001 OO1E 1262 
FIAL2VTA C 001 0012 1329 


Fl2 
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MMSCPR MISCPR - MAIN STORAGE IPL ~ COMMAND PROCESSOR FUNCTION 


01 ol 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 
02 0080 3461 TUBUSUP EQU X'80' . USER DISPLAY [S UP 34620000 | 02) 
0040 3462 TUBUSSY EQU X‘40' ._USER DISPLAY SAVED 34630000 
0020 3463 TUBSYLST EQU X'20° > SYSLIST DISPLAY UP 34640000 
03 0010 3464 TUBMBDCF EQU  X'10' . BROADCAST FAILURE 34650000 | 03} 
0008 3465 TUBNRDTA EQU X‘08" «RT PROC WITH DATA ENTERED 34660000 
0004 3466 TUBSRILK EQU  X‘04" ~ SAVE/RESTORE INTERLOCK 34670000 
0002 3467 TUBHPND EQU X‘02' . HELP FUNCTION PENDING 34680000 | 04 
0001 3468 TUBKBULK EQU  X‘O1' ._ KEYBOARD UNLOCKED | 
05 003C 3470 TUBCTSAV EQU TUBATTRG+2 — SAVEAREA FOR TUBCOUNT 34710000 | 0 | 
003E 3471 TUBAPRNT EQU  TUBCTSAV+2 ID OF ASSOCIATED PRINTER 34720000 : 
003F 3472 TUBSGCT EQU  TUBAPRNT+1 MESSAGE COUNT 34730000 | 
06) 0080 3473 TUBMSGRT EQU X'80' . LEVEL 0 INQ MSG HAS BEEN REROUTEDCREL4) 34740000 } 06 | 
0040 3474 TUBTSGR2 EQU X'40' ._LEVEL_1 INQ MSG HAS BEEN REROUTEDCREL4) 34750000 | 
0041 3475 TUBASEN. EQU  TUBMSGCT+2 ASSIGNED BUFFER LENGTH 34760000 | 
07 0043 3476 TUBASGNA EQU TUBASGNL+2 ASSIGNED BUFFER ADDRESS | 
00443478 TUBATTR? EQU  TUBASGNa+l ATTRIBUTE BYTE 7 
OS { 
0080 3480 TUBSRQPD EQU X'80' «SYS REQ IS PENDING 
(0040 3481 TUBIOERR EQU K"40° > PERMANENT 170 ERROR ON THIS TUB 34820000 ( 
0020 3482 TUBMIQDS EQU x‘20' . INQUIRY DISABLED ON THIS TUB 34830000 | 09 
0010 3483 TUBCHDRJ EQU  X'10' « COMTAND REJECT ON THIS TUB 34840000 | 
0008 3484 TUBREADY EQU  X‘O8" > TUB IN READY MODE 34650000 
1 0004 3485 TUBLIOER EQU X‘04* . LOGICAL 1/0 ERROR 34860000 | 10 { 
0002 3486 TUBLIOIP EQU  X‘02" . LOGICAL 1/0 IN PROGRESS 34870000 ( 
0001 3487 TUBROYIP EQU  xK*O1" ~ READY FUNCTION IN PROGRESS fe 
1 
0045 3489 TUBATTRS EQU TUBATTR7+1 ATTRIBUTE BYTE 8 
0080 3491 TUBALAM EQU Xx‘30" . SOUND ALARN AND TURN ON LIGHT 2 { 
0040 3492 TUBLTOFF EQU  X‘40° «TURN OFF MESSAGE LIGHT 34930000 { 
0020 3493 TUBASENT EQU X20" ~ ALARM HAS BEEN SENT 34940000 ( 
OO10 3494 TUBNDOTA EQU  X"10° . FODIFIED DATA TAG 34950000 t 
3495 * fu x‘08" . RESERVED FOR W5I0CH 34960000 ( 
3496 * mw Kor ~ RESERVED FOR W5i0cH 34970000 ( 
4 3497 * eu x‘02' . RESERVED FOR USIOCH 3e980000 | 14 t 
3498 * fu x1" - RESERVED FOR W5IOCH 34990000 
0047 3500 TUBHELPR EQU © TUBATING«2 «© HELP KEY MIC AREA 35010000 | 15 { 
0087 3501 TUBGOHAR EQU  TUBHELPT GAIJT CHARACTER ON AID REQUEST 35020000 
| 
0080 3505 TURBAOGE EQ x"80° ~ THES TUB AAS BADGE SECURITY "35060000 
1 OO 3506 TEGO EN x"40" - THIS TUB IS FOR A 960 CARR SCREEN 35070000 | 1 
0020 3507 TREN EU x"20" . DISPLAY PAGE 2 OF NENW ON 960 35080000 [ 
C10 3508 TUNRTSC EQ x"10" ~ eT SOIT SATE Do] q 
18 008 3509 TURSWRD HD x08" . REJECT IM GERDY FONCTION Jswona0 | 18 a 
000s 3510 TESHER! EN x08" - SRR CORTE SHWE - STATUS OF OSL STSIG ‘ 
351i TUESVERZ foe CR See F 


FIAONFG C 001 0008 1192 
FIAMKTND C 001 0080 1274 
FIFLAG $C 001 OOlE 1366 1370 
FIRESTRT C 001 OOFF 1368 
FISSEND C001 0027 1372 
FISSTRT C001 0021 1370 
GETPANYP C 001 0020 0836 


GETPHSIC C 001 0010 0837 
GETPNOTC C 001 0008 0838 
HOLD C001 00C8 0495 


HPASGERR C 001 0080 0963 
HPCSSVC C001 0010 0966 
HPERRPND C001 0001 0970 0971 


HPHALTED C 001 0000 0971 


16 


17 


18 


JCBDDATE C°001 
JCBDDFRG C 001 0056 1716 1718 
JCBOOTFA C001 0054 1712 1714 
JCBDELNG C 001 


1 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR S' 
34620000 | 0 004A 3515 TUBRFSS EQU TUBATTR9*2 REJECT FILE - SS 35160000 | 0 0004 35 
34630000 0048 3516 TUBRFN EQU  TUBRFSS+] —_—REJECT FILE - NUNBER SECTORS 35170000 0002_3! 
34640000 004C 3517 TUBRFCSS EQU  TUBRFN*I REJECT FILE - CURRENT SECTOR 35180000 0001 3! 
34650000 | 0 004D 3518 TUBRFDSP EQU TUBRFCSS+1 © REJECT FILE - RELATIVE DISPLACEMENT 35190000 |0 0055 3! 
34660000 3519 * 35200000 0057_3: 
34670000 O04E 3520 TUBCIGK] EQU  TUBRFOSP+] FIRST COMMAND KEY NASK BYTE 35210000 
34680000 | 04 0080 3521 TUBCMDS EQU X'‘a0' ENABLE COMMAND KEY 8 35220000 |04 0058 35 
34690000 0040 3522 TUBCYD? EQU  X'40' ENABLE COMMAND KEY 7 35230000 
0020 3523 TUBCMDS ~EQU  X‘20" ENABLE COMMAND KEY 6 35240000 0080 35 
34710000 | 0 0010 3524 TUBCMDS EQU X'10' ENABLE COMMAND KEY 5 35250000 |0 0040 35 
34720000 0006 3525 TUBCMD4 EQU  x'08" ENABLE COMMAND KEY 4 35260000 0020 35 
34730000 00043526 TUBCND3 ~EQU x's" ENABLE COMMAND KEY 3 5270000 0010 35 
34740000 | 06 0002 3527 TUBCYO2 —QU  x‘02" ENABLE COMMAND KEY 2 35280000 |06 0008 35 
34750000 0001 3528 TUBCMD! EQU  xX'ol’ ENABLE COMMAND KEY 1 35290000 35 
34760000 OO4F 3529 TUBCFEK2 EQU TUBCISKI+1 COND COMPAND KEY MASK BYTE 35300000 35 
34770000 | 07) 0080 3530 TUBCMD12 EQU x‘s0' ENABLE COMPAND KEY 12 35310000 07 35 
0040 3531 TUBCMD11 EQU  X'40' ENABLE COMMAND KEY 11 35320000 005A _35 
34790000 0020 3532 TUBCDIO EQU§ X'20° ENABLE COMPYIND KEY 10 35330000 35 
34810000 0006 3534 TUBCMD24 EQU  X'08" ENABLE COMMAND KEY 24 35350000 
34820000 0004 3535 TUBCD23 EQU  X‘04" ENABLE COMPAND KEY 23 35360000 0080 35 
34830000 | 09 0002 3536 TUBCHD22 EQU X‘02' ENABLE COMMAND KEY 22 35370000 {09 0040 35 
34840000 0001 3537 TUBCIN21 EQU X‘Ol' ENABLE COMPAND KEY 21 35380000 0020 35 
34850000 0050 3538 TUBCHSK3 EQU TUBCSK2+1 ~~“ THIRD COMMAND KEY MASK BYTE }5390000° 0010 35 
34860000 | 10 0080 3539 TUBCMD20 EQU  X‘80" ENABLE COMPAND KEY 20 35400000 | 10 0008 35 
34870000 0040 3540 TUBCIIDI9 EQU X‘40' ENABLE COMMAND KEY 19 35410000 0018 35 
34880000 0020 3541 TUBCD18 EQU  x‘20° ENABLE COWWD KEY 18 35420000 0004 35 
1 0010 3542 TUBCPDI7 EQU X‘l0° ENABLE COMPWAD KEY 17 35430000 {11 0002 35 
34900000 0008 3543 TURCTDIG EQU  X‘08" __ ENABLE COPD KEY 16 35440000 0001 35 
0004 3544 TWBCDI5 EQU xX‘O4" Z CONAN KEY 15 35450000 005F 35 
34920000 | 12) 002 3545 TUBCD14 EU X‘02° EMPBLE COTW KEY 14 35460000 | 12) 0060 35 
34930000 0001 3546 TUBCPDI3 EQU  X"OI' ENPBLE CONTWD KEY 13 35470000 
34940000 0050 3547 TIBGSK EQU TURKS COW KEY 16K 35480000 
3e950000 | 13 0051 3568 TUBFFSK E€QU TUBCTSK+] = FUNCTION KEY ASK 35490000 
34960000 0080 3569 TUBPRT EQU  X‘80° ENABLE PRINT KEY 35500000 
34970000 0080 3550 TURLUP EQU  K"40" EBLE MLL UP KEY "35510000 ce 
34980000 0020 3551 TUBRLON EQ Xx‘20° - ENABLE ROLL DOW KEY 35520000 | 1: % 
34990000 0010 3552 TUBCLER EQU X‘10° ENABLE CLEAR KEY 35530000 6 
(0008 3553 TUKELP QU X08" ENABLE HELP KEY 35540000 we 
35010000 | 15 000s 3554 TUBRCEK QU X‘O4 GWBLE BACKSPACE KEY s5ss0000 415 Be 
35020000 3355 * fw xu SESERVED 39560000 
3556 * fw X01 SESERNED 35570000 0026 36 
3s0e0000 | 16 0053 3557 TUNDEXTa EQU «TUBFFEK+2 «=. REPUTE WKSTATIONS TUB CSTE) ysse0n0n 116 O0z7 36 


MOTE TNT IF TES BIT 1S WOT Of 
TT DIONE DE DROP PAWETER 


eee ee ee ee 


IL2ASGB C001 0001 0618 
TL2LOAD C001 0000 0616 
6) INQOPT! C001 001A 0469 
108 C001 0001 _ (0101 
JCBDBFRA COOL OO6F 1751 = 1754 

JCBDCCBA C 001 0003 1763 1764 

JCBDCIBA C001 0052 1710 1712 

SCBOCRLB C O01 0010 1651 1652 

JCBOCSBP C 001 0065 1747 = 1749 

JCBOCTAG C 001 0028 1678 1680 

JCBDDATE C°001 0009 1643 = 1645 

SCBDDFRG C 001 0056 1716 1718 4218* 4220 
JCBDOTFA C001 0054 1712 1714 4216* 


JCBDELNG C 001 0010 1772 


1 


JCBOIPRC C 001 
SCBLLNTH C 001 


Fl4 
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01 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE AD 
35160000 |02 0004 3569 TUBNCOUT EQU X'04" . ENTER HAS BEEN PRESSED AT THE SUBCNSL 35700000 | 0 
35170000 0002 3570 TUBNOSUB FQU  X‘02' «ASSIGN NOSUB ACTIVE ON THIS DEVICE 35710000 
35180000 0001 3571 TUBRDMOD EQU  X‘O1° ~ PERFORM READ MODIFIED 35720000 00 
35190000 |03 0055 3572 TUBMSGID EQU TUBATTRA+] — NEXT REPLY ID TO USE AT SUBCONSOLE 35730000 | 03 
35200000 0057 3573 TUBDMATX EQU TUBMSGID+2 ADDRESS OF SUBCONSOLE MATRIX 35740000 
35210000 
35220000 104 0058 3575 TUBATTRE EQU TUBDMATX+1 ATTRIBUTE BYTE 11 35760000 | 04 00 
35230000 00 
35240000 0080 3577 TUBKDPLY EQU xX'80° . Tec CAPABLE DISPLAY 35760000 
35250000 |0 0040 3578 TUBKKBD EQU X‘40° . 160 CAPABLE KEYBOARD 35790000 | 0 00 
35260000 0020 3579 TUBMKANJ EQU  X‘20' «THIS SESSION IN [GC MODE 3500000 00 
35270000 0010 3580 TUBGATJD EQU  x‘10° ~ EXTO PROCESSING ON 35810000 00 
35280000 |06 0008 3581 TUBRJFOV EQU Xx‘08' . FILE OVERFLOW OF THE REJECT FILE 35820000 | 06 
35290000 3582 * EU X'oe ._ RESERVED 35830000 
35300000 3583 * ew x02" ~ RESERVED 35840000 
35310000 }07 3584 * x01" . RESERVED 35850000 | 07 
35320000 O05A 3585 TUBDGTUB EQU TUBATTRB+2 _ DISPLAY STATION POINTER TO GAIJI TUB 35960000 
35330000 3586 * REFERENCE GEXTB MACRO FOR DESCRIPTION 35670000 
35340000 | 03} 0058 3587 TUBATTRC EQU TUBDGTUB+] © ATTRIBUTE BYTE 12 35990000 | 03 00: 
35350000 
353<0000 (0080 3569 TUBOILGJ EQU  X"B0° ~ 0 OPTION TAKEN ON INVALID EXTN CHAR 35900000 
35370000 |09 0040 3590 TUBOUNGJ EQU  X"40' « 0 OPTION ON AN UNDEFINED EXTN CHAR 35910000 | 09 00; 
35390000 0020 3591 TUBORMFL EQU Xx'20' «0 OPTION ON A RAM FULL ERROR 35920000 00: 
35390000: 0010 3592 TUBZRF EQU  X*10" ~ 2 OPTION TAKEN ON A RAR FULL ERROR 35930000 
35400000 | 10 0008 3593 TUB2IG EU xX‘08" « 2 OPTION ON AN INVALID EXTN CHAR 35940000 | 10 
35410000 0018 3594 TUBZG = EQU. X'18° «2 OPTION ON AN UNDEFINED EXTN CHAR 35950000 
3500000 00043595 TUBPHELP EQU X*Oe" ~ HIGH LEVEL HELP AID IN PROGRESS 35960000 
35430000 {1 0002 3596 TUBIOPT QU X‘02' . 1 OPTION TAKEN ON ABOVE ERROR 35970000 | 1 
354e0000 0001 3597 TUBRAER EGU X‘01' = SET OFF WSUS INTLK ON LOAD RAV ERROR 35980000 
35450000 O05F 3598 TUBRSVD EQU TUBATTRI+4 35990000 00C 
35a60000 112 0060 3599 TUBLEN EGU TUBRSVD+1 = LENGTH OF A DISPLAY TUB 3000000 | 12 0M 
35470000 00 
35480000 Ox 
3590000 000 
35500000 001 
35510000 on 
35520000 
35530000 
35500000 
35550000 000 
35560000 ood 
35570000 008 
35580000 000 
35590000 O00 
35610000 on 
35620000 on 
5630000 ox 
s5ee0000 on 
35650000 36180000 oon 
Ses0000 OO20 Ils TURSEKTO BW x20" ~ 1S PRETER TS 1 TOO on 
even 119 7 * ew x"10" . RESERVED 330000 0 
ea000 MI * mw xe . RESERIED Je10000 on 
encase = a or ~ SESE id on 


a 


l 


Vy 


 VO9/11/81 12/08/81 02:16 


Ss) 


OJ JCBDUSER C 001 006D 1749 1751 1752 


VOOVILEA & WL WWD LHS tnle 
JCBOSLOB C001 0020 1680 1682 
JSCBDSLST C 001 O0OE 1647 © 1651 
JCBOSPID C 001 OSC 1722 

JCBDSSBA C001 0001 1762 1763 
ACBOSTAT C 001 0029 1666 1676 
JCBOUPSI C 001 0006 1633 1643 3989* 
JCBDURIL C001 O03F 1692 1693 
JCBDURZL C 001 0041 1693 1695 


JCBOUSR1 C 001 0037 1688 —_—1689 
JCBDUSR2 C 001 0039 1689 1690 
JCBDWSBP C 001 0016 1656 1658 
JCBDIPRC C001 0020 1660 1664 
JCBLLNTH C 001 0070 1754 ©3833 3841 3841" 4119 4142 4147 4147* 
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AND PROCESSOR FUNCTION PAGE 


*SCPR MMSCPR - MAIN STORAGE IPL - CO 
1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE Al 


0 3620 * EQU  X‘02" . RESERVED 0. 0 
3621 * EQU X'‘O1' ._ RESERVED 36220000 
0030 3622 TUBPLEN EQU  TUBDPRST+] LENGTH OF A BASIC PRINTER TUB 36230000 O 
03} 3623 RAAKRRAKRARAARARARAARARRAARRRARAARRARRAAAARAAKAARARAARARRARAKAAAAAKKRAAAAKK 36240000 03} oO 
3624 * PRINTER TUB ADDITION R 36250000 or 
3625 RRAAARAAARAAAARRARRAARAARRAARRKRAAKRAAARAAAARARAAKRAAAARAKAKAAAAAAKAARAAKKAARAAK 36260000 a 
0031 3626 TUBPSUBC EQU TUBPLEN+1  SUBCONSOLE LOGICAL ID 36270000 | 04 0 
0033 3627 TUBPGTUB EQU TUBPSUBC+2 —_ POINTER TO GAIJI TUB CPRINTERS) 36280000 
3628 * REFERENCE GEXTB MACRO FOR DESCRIPTION 36290000 O 
0034 3629 TUBPATR1 EQU TUBPGTUB+] PRINTER ATTRIBUTE BYTE ONE 36300000 | 05) O 
0080 3630 TUBKPNTR EQU X'80' . IGC__ CAPABLE PRINTER 36310000 t, 
0040 3631 TUBGAIJP EQU  X'40° ~ EXTD PROCESSING ON FOR THIS PRINTER 36320000 
3632 * EQ X‘20° . RESERVED 36330000 | 06 
3633 ® EQ X‘lo' ._ RESERVED 36340000 
3634 * EQU X'08" ~ RESERVED 36350000 
07 3635 * EQU X'04' . RESERVED 36360000 | 07 oC 
3636 * EQ X‘02' ._ RESERVED 36370000 oC 
3637 * EQ xX‘Or" ~ RESERVED 36380000 
0035 3638 TUBPLPI EQU TUBPATRI+1 LINES PER INCH 36390000 | 08) o 
3639 * LEFT NIBBLE = LAST VALUE SENT 36400000 o 
3640 * RIGHT NIBBLE = DEFAULT VALUE 36410000 
003F 3641 TUBPERES EQU TUBPLPI+10 RESERVED AREA 36420000 | 09 o 
0040 3642 TUBPELEN EQU TUBPERES+1 LENGTH OF A PRINTER TUB WITH ADDITION 36430000 o 
3643 * 36440000 Oo 
1 3644 *** END OF EXPANSION ** 36450000 | 10 00 
3645 -* TWAEQ 36460000 0 
O45 * 36470000 00 
1 3647 * GENERAL TASK UDRK AREA ACCESS EQUATES 36480000 | 11 
3648 * 36490000 00 
0001 3649 TWAPUT EQU  X‘OI" PUT TO TASK WORK AREA 36500000 
0000 3650 TWAGET EQ X‘00' GET FROM TASK WORK AREA 36510000 | 12 
0002 3651 TWASYS EQ X‘02" SYSTEM REQUEST ( XR1 = TCB a > 36520000 
0004 3652 TWA EQ X04" USE WORKSTATION UDRK AREA 36530000 
0000 3653 TWATWA «EQU X00" USE ALLOCATED TASK WORK AREA 36540000 00 
0040 3654 TWAREAL EQU  X‘40° DATA AREA IN REAL STORAGE 36550000 0 
(0000 3655 TWAXLATE EQ X00" DATA AREA IN TRANSLATED STORAGE [re 
i 3656 * 36570000 | 1: 00 
3657 * UDRKSTATION WORK AREA - ONE PER COMMAND WORKSTATION 36580000 00 
3658 * 36590000 00 
0000 3659 TPPSEDV EQ 0 TAG © ~ SAVE AREA FOR RD EDV 3esoo000 | 15 
0001 3660 TUMPSI2Z HU 1 TAG 1 ~ PROCEDURE PART SAVE AREA 36610000 
G00? 3661 TUPS34 EQ 2 TAG 2 ~ PROCEDURE PROT! SAVE AREA 36620000 
0003 3662 TURPPSSG EU 3 TAG 3 ~ PROCEDURE PRAT SAVE AREA 36630000 | 16 
0004 3663 TUPSIS 4 TAG 4 - PROCEDURE PRIN SAVE AREA 36690000 
0005 3664 TUPPSOA EQS The 5 - PROCEDURE PR SANE AREA HEKN00 
I 0005 3665 TUYPSEC BD 6 TAG 6 - PROCEDURE PRET SAVE AREA jessonnn | 17 
Oooy 3666 TUPPER 7 TAG 7 - PROCEDURE PRON SUE AREA 3e670000 
(noe eer TPO ES TG 3 — PROCEDURE PAE: SAE MOEA 36600000 
one 68 TRL OD ‘TAG 9 - LOCAL AREA yeenonnn | 12 
OOOA 3669 TURNS EQ 10 ‘THE 20- SYST SAVE GEA 36700000 
OM 3670 FAVES El TE 


LWRTFULL WL 


LAMM OT & WUE WIN LOlt 
JCBARING C001 0002 1620 
ee 


J UCBMRSET C001 0001 1631 


C 001 0040 1569 
JCBHSCRT C001 0008 1618 
SCBMSELT C 001 0002 1630 
3} JCBNSEOJ C 001 0080 1614 
SCBMSLNG C 001 0040 1729 


SCBMSLOG C 001 0080 1624 
JCBMSLOP C 001 0002 1673 
JCBNSOFF C001 0040 1615 


F16 


4208 


1 


01 MMSCPR MMSCPR - MAIN STORE 
ERR LOC OBJECT CODE f 


36210000 0022 3674 TWAALGIO EQU 34 < LOGICAL 1/0 RESERVED AREA (34-44) 02 


( 
36220000 3675 * “4 TAG 44- END OF SAVE/RESTORE AREAS 0 
36230000 0020 3676 TWAASSS EQU 45 TAG 45- WORK STATION CONFIGURATION 0 
ARR 36240000 OO2E 3677 TWAACOMN EQU 46 TAG 46- COMMUNICATIONS CONFIGURATION 03 0 
® 36250000 O02F 3678 TWAALOGR EQU 47 TAG _47- SYSLOG RESPONSE DATA 0 
ARR 36260000 0030 3679 TWAALOGC EQU 48 TAG 48- SYSLOG COMMINCATIONS TO CONSOLE 0 
36270000 | 04 0031 3680 TWAYTKMQ EQU 49 TAG 49- TASK MESSAGE QUEUE AREA 4 0 
36280000 3681 * 54 TAG 54- END OF MESSAGE QUEUE AREA 36820000 0 
36290000 0037 3662 TWAMOCLC EQU 55 TAG 55- OCL COMTAND SAVE AREA 36830000 
36300000 0038 3683 TWAPXLAT EQU 56 TAG 56- TRANSLATE TABLE AREA 36840000 | 05} 
36310000 0039 3684 TWAPRRMG EQU 57 TAG 57- DUAL MESSAGE ROUTING AREA 36850000 
36320000 3685 * 58 TAG 56- RESERVED THRU 59 36860000 0 
36330000 3686 * 36870000 | 06) 0 
36340000 3687 _* COMMAND PROCESSOR TAGS 0 
36350000 3688 * 0 
36360000 0000 3689 TWAPNUSE EQU 00 TAG 00- NOT USED 36900000 | 07 0 
36370000 0001 3690 TWAYSCO] EQU 01 TAG O1- SYSTEM CONSOLE IMAGE 0 
36380000 361 * 07 TAG O7- END 0 
36390000 | 08 0014 3692 TWASCEND EQU 20 NUMBER OF IMAGES 36930000 | 08 0 
36400000 0008 3693 TWAMIQO! EQU 08 TAG 08- MESSAGE QUEUE 0 
36410000 3694 * B TAG 13- END OF MESSAGE QUEUE TAGS 0 
36420000 QOOE 3695 TWAACURT EQU 14 TAG 14- CURRENT SYSTEM PRINTER IMAGE 09 0 
36430000 OOOF 3696 TWAASCSV EQU 15 TAG _15- SYSTEM CONSOLE SAVE/RESTORE AREAS 0 
36440000 GOOF 3697 TWABCNSL EQU 15 7 CONSOLE SAVE AREA (15-26) rr 
36450000 0018 3698 TWYASSA EQU 27 7 WORKSTATION SAVE AREA (27-38) 0 
36460000 0027 3699 TWASSTAT EQU 39 2 STATUS SAVE AREA (39-50) o 
36470000 0033 3700 TWASERPS EQU 51 TAG 51- 1/0 ERP SAVE AREA FOR MSG BUILD o 
36480000 3701 * 52 TAG 52- RESERVED THRU 59 af o 
36490000 003C_3702 TWCSMQ EQU 60 TAG 60- CONSOLE SYSLOG MESSAGE QUEUE. 0 
"36500000 3703 * 19 TAG 119- END OF CONSOLE MESSAGE QUEUE. 0 
36510000 3704 * M4 ol 
36520000 3705 * TWA EXTENSION ELEMENT EQUATES 0 
36530000 3106 * o 
36540000 | 13 0002 3707 THAT «EQ (02 TWA AVAILABLE TRACKS MAP a 
36550000 0003 3708 THANWPL EQU 03 LENGTH OF TAP FIELD 0 
36560000 00043709 TUAMNEXT EQU  TWAXTWAP+2 = CHAIN FIELD a 
36570000 | 14 0006 3720 TUAXSS §EQU «TWAXNEXT*+2 «DISK ADDRESS OF THIS ELEPENT 37110000 | 14 a 
36580000 0007 3711 TWN QU TMS #1 CONTAINS LENGTH OF MAP FIELD a 
36590000 0008 3712 TUKLEN EQU  TWAKNel LENGTH OF TURE a 
36600000 3713 *=* END OF EXPANSION ** 5 x 
36610000 314 * 3NTEQ TRANSIENT RIB VALUE EQUATES a 
36620000 3115 a 
36630000 a 
6640000 a 
36650000 a 
36660000 a 
36670000 a 
580000 a 
ee90000 oa 
36700000 w 
3670000 : a 
ez20000 | 15 Ouse 3725 XEED HW x3" a 
6730000 OO 5 MAF FO Ke a 
‘K 


15]MSCA0700 A 001 ORES 4410 


LOGTFULL C O01 OOFF 09: 
MENU C001 00010443 


23 

A32K C001 0001 0746 

MODE C 001 0009 0452 

MPIOBERR C 001 0008 0741 
SCaa001 A 008 08 448) 3966 
MSCAROO2 A 006 0845 4482 4350 
MSC@DEND A001 OCFF 4703 


SCHO010 A 001 0838 4480 
OH MSCA00Z0 A001 080A 3823 3819 
MSCB0030 A 001 O8BD 3956 
SCA0040 A001 0897 3931 955 
MSC&O060 A 001 0886 3953 3937 
MSCa0080 A 001 0886 3952 3940 


MSC80100 A 001 0882 3948 = 394 


17, 


1 


1 


Fl7 
VO9/11/81 12/08/81 02:16 @MSCPR MYSCPR - MAIN STORAGE [PL - COMMAND PROCESSOR FUNCTION PAGE 74 VO9/11/81 12/08/81 02:16 ao MSCPR MMSCPR - MAIN STORE 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE f 
14) 0010 3727 XFERCTL QU x‘l0° TRANSFER CONTROL ROUTINE 02 ¢ 
x 0020 3728 XNTPRIV EQU _X‘20' PRIVLEGED TRANSIENT ( 
0008 3729 XNTAREAS EQU  X‘08' FIRST SECTOR IN TRANSIENT AREACHIGH) ( 
OOOF 3730 XNTAREAE EQU X‘OF' LAST SECTOR IN TRANSIENT AREA CHIGH) 03 
(0004 3732 XFEREAON EQU  X‘04" SET EA ON TRANSFER CONTROL ( 
0002 3733 XFEREBON EQU X‘02' SET EB ON TRANSFER CONTROL 04 ( 
NON-PRIVLEOGED) 0 
3735 RARRRRKAAAAARKARARARKARAARARAAKRARAAAAKAARARAARRARRARRARARARAARAAAAKRARAAARKAK 37360000 0 
3736 ® ‘SYSTEM’ TRANSIENT RIB EQUATES CI.E., IMPLICIT DISK ADDR, LENGTH) * 37370000 | 0 C 
37 7 RARKRARARRAAAARRAKRAAKKAAARRKARAKKAARRAKRAAAARAARRRAAAAAAKAAAAARARARARRAARAKRAARAK 37380000 0 
0000 3738 RRSVDOO EQU  X‘00' RESERVED 37390000 0 
0001 3739 RFIND QU xX‘O1' FIND 37400000 | 06 0 
0002 3740 ROPEN EQU X‘02' OPEN 37410000 0 
0003 3741 RCLOSE EQU  x‘03' CLOSE 37420000 0 
0004 3742 REO © QU X'04' END-OF- JOB 37430000 | 07 0 
0005 3743 RSLOG = EQU —X‘05° SYSLOG 37440000 0 
0006 3744 RSLIST EQU XK'06' SYSLIST 37450000 0 
0007 3745 RSIN EQU X‘07" SYSIN 038 0 
0008 3746 RSGET qu x‘08' SOURCE GET 0 
0009 3747 RSMSG == EQU X09" MESSAGE RETREIVE 0 
OOOA 3748 RLIBRY EQU X‘OA' LIBRARY OPEN/CLOSE 09 0 
AS 0008 3749 RVTOCFD £Q VTOC_READ/WRITE FD 0 
(000C 3750 RALLOC  EQU  xX‘Oc‘ ALLOCATE 0 
0000 3751 ROALOC €QU  X‘0D' DEALLOCATE 10 a 
OOOE 3752 RSALOC EQU X'0E' SPECIAL ALLOCATE 0 
) OOOF 3753 RINFO EQ X‘OF RETRIEVE SYSTEM INFORMATION 
0010 3754 RVTORD EQU  X°‘l0° VIOC READ/WRITE RD Nl 0 
0011 3755 RSNAPEQU.sOX‘1I' SNeP Dune 0 
0012 3756 RPGHLT QU X'12" 
0013 3757 ROMCALL EQU X‘13" 2 
0014 3758 RPRALGN EQU X‘14‘ 
0015 3759 RCPRT = FQU) x‘15‘ 
0016 3760 RLOPEN EQU X‘16" 13} 0800 
0017 3761 RBON EQ X‘l7" 
OOS 3762 ROM EQN X"18" 
0019 3763 RFINDLIB EQU  X‘19° 14 
OO1A 3764 RAFA ew Xx‘1A' 
OOIB 3765 RSPOL SEW OX 1B 0800 F2 87 07 
0803 04E2C307D9 it 
4 0808 08 G 
a 16-0809 00 o 
am G 
soot’ 
oe 1 
= 
ated 
19 
OS0A F4 00 0% 
3D O70 oi 


> _GENGTH OF REDD 


74 O9/11/81 12/08/81 02:16 


) 
y 


) 


RERRAARK 


TH) * 


RARRRRK 


37280000 
37290000 
37300000 
37310000 

7320000 
37330000 
37340000 
37350000 
37360000 
37370000 
37380000 
37390000 
37400000 
37410000 
37420000 
37430000 
37440000 
37450000 
37460000 
37470000 
37480000 
37490000 


AND PROCESSOR FUNCTION 


ERR LOC OBJECT CODE ADDR STMT SOURCE 


0028 3781 RPRA2 
002C_3782 RCMO 
0020 3783 RIOERR 
OO2E 3784 REXTNO 
002F 3785 RUPDAT 
0030 3786 RCHKPT 
0031 3787 RSPMIC 
0032 3788 RICDA 
0033 3789 RICDB 
0034 3790 RICOC 
0035_3791_RSVTX 
0036 3792 RSORT 
0037 3793 REXTRA 
0038 3794 RWDOL 
0039 3795 RGLFR 
003A 3796 RGLFAC 
0038 3797 REXTNP 
003C 3798 RSMFC 
0030 3799 RICDD 
003E_3800_RWDDU 
003F 3801 RWDOT 
0040 3802 RWEGE 
0041 3803 RROOM 
0042 3804 RWOHH 
0043 3805 RSPQMG 
0043 3806 RXTEND 


STATEMENT 


EQU X'2B' 
X'2c' 
X'2D" 
X'2E" 
X'2F* 
EQ X'30" 
EU X'31' 
EQU X'32' 
EQU X"33" 
EQ X'34' 
EQU X'35' 
EU X'36' 
EU X‘37' 
EQU X‘38' 
EQU X'39" 
EQ X'3A' 
EQ X'3B' 
EQU X'3C' 
EQ X'3D' 
EQU. X'3E" 
EQ X'3F’ 
cqU X'40' 
EQU. X‘41' 
EQ X'42" 
EQU X*43' 
EQU_RSPOMG 


F18 


SECURITY 
COMMAND OCL_INTERFACE 

170 ERROR TRANSIENT 

EOF EXTEND TRANSIENT 

EDF UPDATE TRANSIENT 
CHECKPOINT TRANSIENT 
SPOOL TRANSIENT 

CF (CWC) 

CF <CVC) 

ICF ¢Cve) 

TWA EXTENSION 

SORT TRANSIENT 

EXTENDED TRACE 

WSOM_ TRANSIENT 

GLF TRANSIENT 

GLF TRANSIENT 

EXTENDED PRINT 

SMF COP. DATA COLLECTION 
PEER MULTIPOINT 

WOM XTENT 


ROOM TTC XIENT CALL 
WSDM XIENT 

SPOOL QUEUE MGMT XIENT 
LAST VALID ENTRY 


0110 3808 XFLENBYT EQU RXTEND*4*4 = LENGTH OF XFER TABLE (BYTES) 

0088 3809 XFLENWRD EQU  RXTEND*2+2 
3810 *** END OF EXPANSION ** 
3811 “MSCPRANT: 


3812 *PROC_OPTIONSCNOSAVE, ID=(IDN=PSCPR, ATTR=E09100, RLD=D,MOO=0, 
CORE=08), START=NUAXIENT); 


3813 * 


3814 MSCPRANT START NUAXIENT 


LENGTH OF XFER TABLE (WORDS) 


= 7. a OF ® TED 


37870000 
37880000 
37890000 
37900000 
37910000 
37920000 
37930000 
37940000 
37950000 
37960000 
37970000 
37980000 
37990000 


38020000 


01 


VISCPR MNSCPR - MAIN S) 
ERR LOC OBJECT CODE 
O80F 01 


0810 35 02 0060 
0814 B5 02 32 
0817 6C_6F 6F 6F 


081B 34 01 0215 


1 


1 


17 


1 


75 = VO9/11/81 12/08/81 02:16 


ayie 


NUBERACE C 001 0310 189) 
NUATEACE C001 0370 1903 
Ty 001 O3FO 1922 
MUALGACE C 001 0320 1893 1895 
NUBLOADI C001 2000 1946 
AACE C001 0340 1697 
NUBMNTQE C 001 0398 1910 
NUaPIOB C 001 01CO 1862 


UaSSOS 


001 1000 194 
BI NUAMKACE C 001 0360 1901 


NUARDIOB C001 O2A8 1882 
NaSCA C001 0000 1856 1859 3860 3890 4061 4305 
NURSPACE C 001 03E0 1920 
NUASWACE C 001 0350 1899 


NUBTIACE C 001 0 


01695 


03] 0810 35 02 0060 


0817 6C_6F 6F 6F 


0818 34 01 0215 


iyvev 


1918 


1893 
1905 
1937 


1899 
192 
1865 
1946 
1903 
1885 4644 


1922 
1901 
1897 


AMSCPR MAIN STORAGE IP 
1 
ERR LOC OBJECT CODE 


O80F 3834 OC  AL.1C1+0) ATTRIBUTES 38350000 {02} 
3835 _*** END OF EXPANSION ** 38360000 
B36 * = REGCXR2)=SCADMTUB(1:2); 7® GET CONSOLE TUB JCB ADDRESS *7 38370000 
3837 L —_-SCADMTUB, XR2 3829 38380000 |03} 
3838. * _ REGCXR2)=XR2->TUBJCBAC 1:2); Is */ 38390000 
5 L TUBJCBAC, KR2), KR2 3830 
3840 * = XR1~>JCBLUNTH=1€1:112)=XR2->VARCICBLLNTH-1; /® COPY TO NEW JCB */ 36410000 |0 


3841 INC JCBLLNTH-1(112, XR1), JCBLLNTH-1¢, XR2) 3831 
3842 * = NUBCPTCB+TCBUCBAC1:2)=REGCXRI); /* STORE JCB ADDRESS IN CP TCB */ 
3843 ST — NUACPTCB+TCBJCBa, XR1 3832 
3644. GENCTITLE ‘MAIN STORAGE IPL - START FILE REBUILD, #"SBLD'); 


081F C2 01 0000 
0823 7A 08 5B 
0826 7A 30 5C 


0829 7C 00 61 


O82C 1C 01 OCC1 1A 
0831 1€ 01 OCC1 1C 


0836 1F 01 OCC1 AA 


4 §=— 0838 35 02 OCC 


083F C2 01 034A 
0843 74 02 38 
3 «©0846 C2 02 O2A2 
084A 6C 04 39 05 
O84E 7C 01 2B 
16] 0851 5D 01 3B 38 
0855 F2 $1 IC 


I 0858 4£ 01 383 OOAA 
OSD KE 0 BB 
0861 30 26 07 


9864 16 07 3D 
0867 SF 00 39 OS 
1% 0868 BO 24 Os 


OBE 75 G2 


BLD 1961 PROMOTE EQ KD" 


9/11/81 12/08/81 02:16 


14 QHOCHNT C001 0018 1406 


19631965 


001 0018 1976 1977 
PPSSGLNR C 001 OO1E 1981 1983 
PPSTAGID C 001 0000 1956 = 1958 
PPSUPSI C O01 OO1F 1983 1985 4430" 
PPSUSRiL C 001 0011 1971 1972 
PPSUSRIN C 001 0009 1967 1968 


18 


1 


38350000 v 
38360000 3847 ® [ RRRRERAARAARKARARAARRARRARRARRERRARARAAARARAARARRAR RARER IRI RAR / 
38370000 848 */* FILE REBUILD, MSBLD, IS CONSIDERED AS PART OF IPL, BUT RUNS AS */ 
38380000 |0 3849 */® A SEPARATE TASK AND NOT UNDER THE COMMAND PROCESSOR AS IPL DOES. */ 
38390000 3850 */* R/ 
8400000 B51 */* A SYSTEM COMMUNCIATION AREA FLAG ‘SCAMRBLD’ IN BYTE ‘SCASYSI’ IS */ 
38410000 |04 3852 */* SET ON TO INDICATE TO ANY ROUTINES THAT WILL BE CALLED BY #NSBLD‘* 
38420000 3853 */* THAT IPL IS IN PROGRESS. a 
3 . ‘thts 3854 Ryn x/ 

38440000 05 3855 */* 4MSBLD WILL RUN AS A DEDICATED TASK, THEREFORE NO JOBS CAN BE  */ 38560000 

38450000 3856 */® STARTED UNTIL IS HAS COMPLETED. / 38570000 

B 7 x  [RAKRARRARARAAARRARRARARRARRARARARAAKAAARARAKAAAAKRARAARAAKRARRARAARRR / 38580000 

06) 3858 */* */ 38590000 

3859 * REG(XR1)=ADORCNUASCA) ; /*® XR1 -~> SCA / 38600000 

081F C2 01 0000 3860 LA —NUBSCA, XR1 3847 38610000 

3861 * XR1->SCASYS1=ONCSCAMRBLD); /* SET FILE REBUILD CALLED / 38620000 

0823 7A 08 5B 3862 SBN SCASYS1(, XR1>, SCAMRBLD 3848 38630000 

3863 ® XR1->SCASYS2=ONCSCAMHLDP+SCAMIPUP); 7*SET HIGH LEVEL DEDICATION */ 38640000 

08} 0826 7A 30 5C 3864 SBN SCASYS2(, XR1), SCAMHLDP+SCANI PUP 3849 38650000 

3865 * XR1->SCAIPLWK+1€1:1)=0; 7* RESET STARTUP FLAG / 38660000 

0829 7C 00 61 3866 PVT SCAIPLUK+1(,XR1),0 3850 38670000 

09 3867 */* x] 38680000 

3068 & /RRRRRARAAAAARRARARARRRARRARARARRARKERARRARARAAARARARRARRARRARRARARRK / 38690000 

3869 */* DEALLOCATE TWA TRACK THAT WAS SAVED DURING IPL. TRACK WAS SAVED *7 38700000 

10 3870 */* TO INSURE THAT THERE IS ENOUGH TASK WORK AREA TO RUN REBUILD.  */ 38710000 


11] (0888 F4 00 06 392 


g 
2 
8 
S 
Bes 
mw 
=> 
: 
zy 
if 
i 
| 
5 
z 
8 
Fae 
sey 
BEE 


0888 001D 088C 392 
0831 1E 01 OCCi iC 3875 ALC NIPWORK(002), SCATWASZC, XR1) 3857 38760000 088) 81 0380 392 
2 3876 * NIPWORK=NIPWORK-XR1->SCADIKSZ; yh s/ 38770000 | 12 392 
0836 1F 01 OCC] AA 3877 SLC _NIPWORK(002), SCADTKS2(. XR1) 3858 38780000 392 
3878 * “REGCKR2)=NIPUORK; 7* XR2 CONTAINS THA TRACK SS */ 38790000 O88E 4C 18 18 OBSE 392 
4 © 0838 35 02 OCll 3879 Ls NIPMDRK, XR2 3859 38800000 392 
3880 * GEN; 7* DEALLOCATE TWA TRACK : 38810000 0893 C2 02 0148 392 
3881 * DTWAL QUE) 38820000 393 
14 O84A 3882 USING DTW005,1 USE AS A BASE REGISTER 38830000 } 1 0397 393 
083F C2 01 034A 3883 LA _DTW80005,1 LOAD BASE REGISTER VALLE 38840000 393 
0843 74 G2 38 3084 ST  DTWAQK, 1,2 “STORE SS ALLOCATED 38850000 0897 B5 02 13 393 
5) 0846 C2 02 0202 3885 LA = MUBTWAKR,2 POINT TO IMDEX START 3essoo00 | 15 393 
OB4A 6C 04 39 05 3886 DTUMD005 FNC DTWRELIS, 1),5(,2) MOVE IN FIRST ELEPENT 38870000 089A BD CO 14 393 
Os 7C 01 B 3887 DTVOO1O FI «= DNP0030+1(.1).X'O1’ INIT. G-COOE TO FIRST TRACK 38890000 393 
16 0851 5D O1 3B 38 3888 DTUNOOZO CLC DTWADK2, 1). DTWASS(. 1) UP TO TRACK TO FREE ? 3saso000 | 16] 0890 F2 C1 16 393 
0855 F2 $1 1C 3389 x  onevo YES, FREE UP TRACK 38900000 
‘OBA0 88 90 35 393 
17] 0853 4€ 91 38 COM 3390 ALC OTURSS(2, 1), MIISCASSCADIKS2 ADD SECTORS/ TRACK Jen1o000 | 17 Be 
O85D 5E 00 28 2B 3991 AC ONPOO1CL, DOV 001 D DOABLE 2-CODE 39920000 O8A3 F2 90 10 398 
0361 00 20 07 3392 OL DRVPO020C.1) CHECK WEXT TRAX 39930000 

18 [SOBRE BS 40 36 4 
0364 76 02 32 3993 A —OORFFOD.2 POINT TO NEXT TOWEX BYTE 3a990000 394 
0867 SF 00 39 05 co) SC ORSTC. DORON 1) DDR. GIDEK LENGTH 33950000 OBAD F2 9D 06 34 

19 0368 DO Ss OF 35 GH = DIMOCI0(,1) CHECK NEXT BYTE 3esso000 | 19 
OBA 74 7 10 34 
OE 75 D2 3 bg L DTURDHRIN, 1D.2 RZ EXT ELEMENT 38970000 Boe 

Lt re 

E20 


* 


* ATR TB 


* * 


1 


1 


17 


1 


409/11/81 12/08/81 02:16 


S}QHOGW §=C 001 0076 1454 


QHOEIB C001 00RD 1471 
QHOERB C001 0074 1453 
QHOEXAM C001 O0A6 1474 


QHOEXTRA C 001 009A 1468 
QHOFD §=©C 001 0000 1394 
QHOFDA CC 001 00301418 
QHOFDB «C001 0032 1419 
QHDFOC C001 0034 1420 
QHOFDD C001 0036 1421 


QHOGLF C001 OOA4 1473 


QHOHT =—C 00100011378 


QHOHIST C001 O06E 1450 
QHDINQEX C 001 0090 1463 
QHDIOXNT C 001 000A 1399 
QHDIO =F O01 0002 1395 
F21 


02 


DTW#0005(,1) CHECK NEXT ELEMENT 


0874 BA 00 00 3898 DTW90030 SBN 0(,2),0 MARK TRACK FREE 38990000 

3899 * GPOST MASK-TCBSWAIT POST IN CASE TASK WAITING 39000000 
0877 F4 00 01 3900 SVC__SVCGPOST,0 39010000 
087A 40 087A 390 DC ALICTCBSWAIT) 39020000 
087B 00 0878 3902 OC 8 =AL1C0) 39030000 

3903_**** END OF EXPANSION ** 39040000 
O87C F2 87 09 3904 J OTWEND JUMP AROUND CONSTANTS 39050000 


03 


te) 


087F OTWAELM DS = CLS SAVED ELEMENT 39060000 
70000 


0883 3905 

0880 3906 DTWACHAN EQU = DTWAELM-3 CHAIN ADORESS 390 
0882 3907 DTWASS §EQU DTWACHANY2 = SS VALUE 39080000 
0883 3908 DTWA*BYT EQU  DTWASS+1 BYTES OF INDEX 39090000 
0884 0885 3909 DTWACM =6DS = (CL2 SS ADORESS TO FREE 39100000 
0886 FFFF 0687 3910 DTWF = CO XL2‘FFFF* CONSTANT OF ~1 39110000 
0688 3911 DTWEND EQU * 39120000 

OROP 1 


0001 3912 DROP BASE REGISTER USAGE 39130000 
3913 *** END OF EXPANSION ** 39140000 
39150000 | 


3914 */* */ 
3915 RRA 


3916 */* ATTACH A TCB TO RUN FILE REBUILD, *P6BLD. IT WILL RUN INA 
3917 */* DEDICATED STATE. 


*] 
*] 


/* GET SPACE FOR ATTACH PARIS 


DC ALICsx"80") ATTRIBUTES 
395 ** EAD OF EXPANSION ** 9260000 
3926 *__XR1->SATLENG-1(1:25)-WARGHPRTACHeSATUENG-1)(1:25); PUNE PART */ 

IPATACH-SATLE 3908 


ENG 
7* ¥Rl-> TUB CHAIN 


340000 


TF SR2->TURDEVID-TUBSROP THEN /* DISPLAY STATION TUB? AND... */ 
CLI TUMDEVIOX, 222), TORS B24 


370000 


wa TON TUBATTR2( 322), TORN 
IRSA ZR); WES, SANE ON PARE LIST 
TSCEDIGS 


OSAF F2 87 04 


O8B2 6C 01 10 34 


08B6 BD 00 12 
0889 CO 01 0897 


088D 35 02 0082 
O8C1_9C 01 FC_10 
O8C5 BC 40 F7 
O8C8 AC 76 F6 F7 
O8CC 8C 07 87 0B3F 
0801 8C 07 90 O20F 
0806 £2 02 30 
0809 74 02 18 
O80C 75 02 10 
GOOF 8B FO 3% 
GSE2 BA DO 36 
OSES 38 08 0071 


OBES 72 9 OD 


ORC 8 G2 32 
OREF 3% 01 OBAB 
OSF3 F2 $1 03 


‘OSF6 BA 91 0 


MSCPR MAIN STORAGE IPL - STA 
1 
ERR LOC OBJECT CODE ADOR 


eee Se ee tet ee) ee 6 


14)QHOTCBQ C001 0046 1430 
QHOTINEA C 001 OO3E 1426 
QHOTIMER C 001 003C 1425 
QHOTRM §=C 001 0050 1435 
QHOTTC C001 0048 1431 4080 4450 
QHOTUB «C001 005A 1440 = 3929 
QHOTWA «C001 OO1A 1407 
QHOTWAF1 C 001 0098 1467 


QHOVILK C001 0068 1447 
17/QHOWSC C001 0006 1397 4051 

QHOWSQS C001 0080 1459 
QHOXIENT C 001 0042 1428 
O{QHOX21 C001 OOAE 1478 
QHOSILK C001 006A 1448 


QUAIT C001 0008 272 2731 2732) 2733 
QNCHPRI C001 0018 2732 
QNQ C001 0010 2726 2731 +2732 +4079 


QNOW C001 «(0019 = 2731 


F22 


1 


1 


1 


1 


NSCPR MAIN STORAGE IPL - 


*SCPR MAIN STORAGE IPL - START FILE REBUILD, #6BLD PAGE 79 09/11/81 12/08/81 02:16 


8 VO9/11/81 12/08/81 02:16 


01 
ERR LOC OBJECT CODE 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


38980000 | 02 3946 * XR1->SATTUBAC1:2)=XR2->TUBTUB; /* NO, SAVE HORIZONTAL TUB  */ 39470000 |02 
OSAF F2 87 04 3947 J $Ca0110 3917 39480000 
38990000 
39000000 0882 3948 MSCA0100 EQU * 3917 39490000 | 03 
39010000 08B2 6C 01 10 34 3949 YC SATTUBAC002, XR1), TUBTUBC, XR2) 3917 39500000 
39020000 08B6 3950 MSCA0110 EQU * 3917 39510000 
39030000 | 04 3951 * END; 39520000 | 04 
39040000 0886 3952 MSCa0080 EQU * 3918 39530000 
39050000 0886 3953 MSCa0060 EU * 3918 39540000 
0886 BD 00 12 3954 CuI BCHAIN-1(,XR2), QHONULL 3918 39550000 {05 
39060000 0889 CO 01 0897 3955 BNE 5Ca0940 3918 39560000 
39070000 
39080000 O8BD 3956 MSC@0030 EQU * 3918 39570000 | 06 
39090000 3957 * _REG(XR2)=SCADCPWAC 1:2); /* GET WORK AREA ADDRESS aa145*/ 39580000 
39100000 O8BD 35 02 0082 3958 L SCADCPUR, XR2 3919 39590000 
39110000 | 0 3959 * = KR2->CPTUBC1:2)=XR1->SATTUBa; —/® STORE TUB ADDRESS */ 39600000 | 07) 
39120000 08C1 9C 01 FC 10 3960 NVC CPTUBC002, XR2>, SATTUBAC, XR1) 3920 39610000 
39130000 3961 ® = XR2->CPINPDTE=BLANK; 7* INITIALIZE DATA AREA = aa145*/ 39620000 
39140000 | OS}  O08C5 BC 40 F7 3962 NVI CPINPOTEC, XR2), BLANK 3921 39630000 | 03) 
a] 39150000 3963. % —_XR2->CPINPDTE-1€1:119)=XR2->CPINPOTE; /* aa145*/ 39640000 
RRR 39160000 O8C8 AC 76 F6 F7 3964 FNC CPINPOTE~1(119,XR2), CPINPOTEC, XR2) 3922 39650000 
Td 39170000 3965 * = XR2->CPINPOTA*7(1:8)=C “#IPLPROC'; /* REBUILD PROCEDURE © aal45*/ 39660000 109 
xy 339190000 O8CC 8C 07 87 0B3F 3966 (NC__CPINPDTA+7(008, XR2), PSCaa001 3923 39670000 
aay Fpis0000 3967 *_ XR2->CPINPOTA+16(1:6)-WARCNIPSTART*7)(1:9); 7* STARTUP aal45*/ 39680000 
ay O81 8C 07 90 O2DF 3968 FNC CPINPOTA*16(008, XR2).NIPSTART+7 3924 39690000 410 
ay 3969 * —_ REGCAR2)=REGORZ) CP INPDTA; /* SET DATA ADDRESS aal45*/ 39700000 
0806 £2 02 80 3970 LA CPINPOTAC, XRZ).. XR2 3925 39710000 
3971 * = XRI->SATDATARC1:2)-REGORZ); f melas 39720000 | 1 
0809 74 02 18 3972 ST _ SATOATAK, XRD, XR2 3926 39730000 
3973 * = REGCKRZ)=KR1->SATTUBAC1=2); J* X82 PIR TU amas 39740000 
4% §=oanc 75 02 10 374 Ls SATTUBAC, XR1D. x82 3927 39750000 | 12 
*/ /* SET DATA MODE IN TUB aal45*/ 39760000 
505 


my 


SN UBDOPS IC, 8Z)_K91" 


RD" ED; H 
Oo 31 TSI Et WS SOD 
waz * GE * CALL ATTOH TRANSIENT SSuAT */ iv 
Sars 3003 SUAS QU * ww% sen 
ORFS Fa Ol 10 Bd SC SUOXTENT QREFRESH Bailie 
GBFD Se GC ALZGHIPSSAITD SOVGRORD | 


PAGE 79 09/11/81 12/08/81 02:16 


VE HORIZONTAL TUB */ 
3917 


3917 
3917 
3917 


3918 
3918 
3918 
3918 


3918 
AREA ADORESS @145*/ 


We YR TT 
C001 0039 3795 
C001 0032 3788 


C 001 0034 3790 
C001 0030 3799 
RINFO = C 001 «O00F = 3753 
RIOERR C001 0020 3783 
RLIBRY C001 000A 3748 


RLOPEN C001 0016 3760 
ROFFLINE C 001 0027 3777 
ROPEN C001 0002 3740 
RPGHLT C€ 001 0012 3756 
RPRALGN C 001 0014 3758 
RPRA2 C001 ~002B 3781 
RROD 


C 001 0041 3803 
RRSVDOO C 001 0000 3738 
RSALOC C001 OOOE 3752 


V7 


19 


1 


RWPLSLNI C 001 0001 2064 
14) RWPLSLNZ C 001 0002 2063 1 
RUPLSLN3 C001 0004 2062 
RUPLSLN4 C 001 0008 2061 
L5)RWPLATCH C 001 0002 2035 1 
RWPLATTR C001 0004 2049 
AUT «C001 0004 2025 = 4641 
16]RWPLCDIT C 001 0008 2044 1 
RUPLCHK C001 0040 2027 


RWPLCUID C 001 0006 2054 2056 

17/RWPLDACT C 001 000A 2043 
RUPLONVO C 001 000C 2045 

- [RUPLOSUC C001 0006" 2039 

TO}RUPLEXIS C 001 0004 2037 18} SCADCPWa C 001 
RWPLGAT C001 0020 2026 


INE C001 0009 2042 
T9OTRWPLLEN C001 0008 2066 4325 


F24 


80 09/11/81 12/08/61 02:16 SSCPR MYSCPR - COMMAND PROCESSOR WAIT ROUTINE PAGE 81 VO9/11/81 12/08/81 02:16 ee SCPR - COMA 
01 D 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


es 
3999 & / RARAAARAARARARARAARARERARARRERRARARRARRARARAAAARARARAARARRARAR ARR 40000000 
4000 */* WAIT FOR FILE REBUILD TO COMPLETE. AT THAT TIME OTHER TASKS CAN */ 40010000 0920 30 00 0061 
4002 */* 1. JOB QUEUE * 40030000 
4003 */* 2. AUTO SPOOL WRITER */ ‘40040000 0933 3D 00 0106 
04 4004 */* */ 40050000 [)4 
a] 40070000 


4006 *7* C@CPRT) IS CALLED, (DESTROYED BY *SVAT). 
¢ 4007 K [ RRARRAARRARAKARARERARARRRRARRARRARARAARAARRERRARARARARARARERRRARERRK | 40080000 ts) 
4008 */* */ 40090000 
4009 * DO UNTIL CNIPSWTCHC1:1)=ONCWAITEND)); /® WAIT FOR REBUILD */ 40100000 093A F4 01 04 
06 O8FE 4010 MSCa0170 EQU * 3952 40110000 D6} 0930 IF 
4011 ® _REGCXR1=0; /* SET FOR GENERAL WAIT */ 40120000 
O8FE C2 01 0000 wiz tA OLXRY 3953 40130000 
07 4013 * GEN; /* WAIT FOR ®*SBLD TO COMPLETE */ 40140000 P 
4014 * WAIT Q-QXLOFF 40150000 O93E C2 02 0000 
0902 F4 04 02 ryt} SVC SVCUAIT,GXLOFF AIT ON SPECIFIED EVENT 40160000 


4016 *** END OF EXPANSION ** 40170000 P38} 0942 BY 20 58 
4017 * IF SCADCFG1C1:1)=OFFCSCANJQFID THEN /* POST FROM REBUILD DETATCH?*/ 40180000 


OK} 
0905 39 02 0012 018 TBF — SCADCFG1, SCARLIQFN 3959 40190000 0945 F2 90 03 
09 4019 * IF XRI->ECMPARMEONCECMTTC) THEN /* ND, IS IT TTC? */ 40200000 D5 
0909 F2 90 14 4020 JF nSCa0190 3960 40210000 0948 BB 02 12 
ee 
o2* D0; 7* YES, */ 40730000 0948 8B 28 5B 
O90F F2 90 07 023 40240000 


sor 094E C2 01 0250 
300000 £3 
0916 F2 87 04 030 J retanz20 3968 0310000 
0952 F414 
4 O919 4031 MSCa07I0 FU * 3968 90320000 F 0955 48 
oO" eh: f° CALL INPUT OP-END ROUTER */ 0000 
O919 F4 01 08 033 SC SNOPER, GREFRESH 0340000 
3 oc 5 OIC «036 co OALICROPRDD 0390000 FD) = 0956 89 3D 13 
5 * BD: a 
OF1D 4036 NSGaZ2D A * 73 90370000 0959 F2 10 05 
16 -or* ES se3son00 £6 
33°  SIPSUTORO=1-0NATTED; /* PERSILD DONE, SET FLAG 7 370000 
O91D F2 37 oF oy J Stan 3 Eyed one | OUST F4 O01 10 
1 O95F OCES 
920 40a) TSaOIIO Et WS Cec 
O20 3A 3 Oe OA SA WPS ATT Bd ONO 
One8 sow TSta730 HU * B75 <ooe Ba 
3 * PD: {OOKIID 0961 BB AD 7D 
ne 3D Oe oe SOPSUTOR UATE RS sae | 
i ORZB OD 9D OBE MOS  cSowl7D Wis OTR 


i 0065 F2 9D OH 


Poth ta hari Bare A fin tr Pare RR ethan RE call lM beret 


SCADCFES C O01 014 2176 2186 4125 4250" 4270" 4270" ceamicaae: SCADSDLP © O01 GOODE 246a 2466 


14)SCADCFG6 C 001 00C4 2586 2598 4)SCADSDLS C 001 0090 2463 2464 
SCADCFG? C 001 OO9F 2466 2486 SCADSECA C 001 0076 2348 2350 
SCADCFGS C001 GOA? 2493 50 AOSECZ C 001 0080 2378 2379 

15{SCADCFE9 C 001 OOAB 2503 2515 4314 S}SCADSEUA C 001 0057 2267 2268 
SCADCFS2 C001 0008 2100 2102 SCADSEUQ C001 0059 2268 2269 
SCADCHTR C 001 6018 2199221 SCADSLOG C001 005A 2271 2275 

16] SCADCON1 C 001 0093 2451 16]SCADSLOT C 001 008A 2384 2386. 
SCADCPKA C 001 0040 2256 SCADSNAT C 001 0090 2418 2420 
SCADCPS1 C001 0070 2327-2337 4092 SCADSNAL C001 0098 2461 2462 

17/SCADCPS2 C001 0071 2337 2347 3980 7}SCADSNA? C001 009C 2462 2463 
SCADCPS3 C 001 00C3 2576 2586 4152 SCADSPI@ C 001 000A 2098 2100 
SCADCPS4 C 001 00CO 2544 2554 SCADSQS C 001 0099 2457 2459 

18] SCADCPWA C 001 0082 2379 2381 3958 4338 18] SCADSSCS C 001 002B 2228 2229 
SCADCPYR C 001 OOFF 2634 2636 SCADSSIO C 001 0020 2229 2231 
SCADCSP1 C 001 008C 2388 2398 ADSSJQ C O01 0044 2242 2244 

19]SCADCSP2 C 001 008D 2398 2408 19] SCADSSMS C 001 0029 2227 2228 
SCADCSP3 C 001 OOSE 2408 2418 SCADSSPF C001 0009 2624 4149 
SCADCTUT C001 0060 2301 ~—-2303:«2319 +4261" SCADSSPR C 001 0047 2244 2252 

¢ 20 
F25 
9/11/81 12/08/81 02:16 ; “YSCPR SSCPR - COMMAND PROCESSOR WAIT ROUTIN PAGE 82 VO9/11/81 12/08/81 02:16 i SCPR MSCPR - COMMAND PROCESSC 
) ¢ 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STI 
4047 * IF SCAIPLWK+1(1:1)=0] /* STARTUP ABENDED? OR... */ 40480000 f02Z} 0967 F4 01 04 405 
4048 * —_ VARCNUBACEQH+QHDWSC)(1:1)7=0 THEN /® WSIOCH POST PENDING? */ 40490000 096A IF 096A_405 
092C 3D 00 0061 4049 CLI SCAIPLWK+1,0 3978 40500000 405 
0930 F2 81 07 4050 JE mSCa0240 3978 40510000 {03} 409 
410 
0933 30 00 0106 4051 CLI NUBACEQH+QHDUSC,0 3978 40520000 410 
4052 * 00; /* YES, HONOR CP POST */ 40530000 04 410 
0937 F2 81 04 4053 JE MSCa0260 3979 40540000 Hy 410 
410 
093A 4054 MSCA0240 EQU * 3979 40550000 405] 096B 410 
4055 * ‘GEN; 7* CALL I/O ERROR PROCESSOR * 40560000 096B F4 01 10 410 
093A F4 01 04 4056 SVC SVCKFER, QREFRESH 40570000 O96E OCFI O96F 410 
D6} 0930 1F 0930 4057 DC ALICREPTC) 40580000 406 410 
4058 * END; : 40590000 0970 35 01 0215 410 
4059 * ” REGCXR2)=ADORCNUASCA); 7* XR2 PTR SCA 7] 40600000 cia 
D 093E 4060 Mm5Ca0260 EQU * 3985 40610000 07] 0974 36 01 OBAS 41 
093E C2 02 0000 4061 LA_NUASCA, XR2 3985 40620000 all 
4062 * IF XR2->SCASYS1=OFFCSCAOVER) THEN /* REFORMAT JOB QUEUE? *7 40630000 0978 F2 81 OC aii 
0942 B9 20 5B 063 TBF — SCASYS1(,XR2), SCAOVER 3986 40640000 (05 
4064 * _XR2->SCADCFG1=OFF(SCAMUGFID; 7* YES, RESET FLAG */ 40650000 all 
0945 F2 90 03 M065 JF FSCH0280 3987 “40660000 0978 OC 01 0215 OBAS 411 
09 all 
0948 BB 02 12 4066 SBF SCADCFG1(, XR2), SCATUGFH 3987 40670000 ay 
4067 * XR2->SCASYS1=0FF(SCARRBLD*SCAOVER); /*RESET FILE REBUILD CALLED */ 40680000 0981 F4 00 07 ai 
0948 4068 FISC@0280 EQU * 3988 40690000 {10} 0984 0070 0985 411 
O98 BB 28 5B 069 SBF SCASYS1(, XR2), SCAMRBLD*SCAOVER 3988 40700000 0986 C1 0986 4121 
7* az 
nz 
412. 
0987 4124 
3 0987 BS 01 14 a2: 
z Eird 
OME C2 01 a6 tA MACPICB*TCRTIC-1, RI 3994 0770000 412; 
: «rl * GEN: /* BUILD ACE *y ao780000 [13] 098A F2 90 C7 412 
018 * PIQ _OeV-QUTIC 40790000 
O952 F414 aC an SVC SHCPOSVC, GND+QRLOFF 0e00000 O98) BD OF 9) “25 
0955 48 0955 4080 OC | ALICGHDTTC+0> 40810000 ax 
9081 *** END OF EXPANSION ** 40820000 0990 F2 10 BE 4131 
4082 * If XR2->SCADCRG? “FF (SCSPOL“SCMLEQ) THEN /*ORLL SPOOL OR J? */ 9830000 
0956 B9 30 13 33 TOF  SCADCFG2(_XR2), SCANSPUL“SDATUDEQ 201 pwn [15 0993 4137 
i a" WO: 7*-YES, CALL IPL ROUTINE 7 esac : az 
0959 F2 10 085 ae es) 4002 0860000 “a3 
Ts io M135 
m* ss7000 3 
OWE Fa O1 10 oo SHC SUCKTENT, QREFRESH CALL SPOUL/JQ IPL ROBTINE per) aT 
O95F OCES 960 «088 x m2PPrLD MOORES OF Pom LIST mann 7 “a3 
2" Ge: <0 ce 
2 * TF PSRs] =KSORRLL) Te * Str Cone? *7 ore sa 
g ON61 409] ISLE HD * 508 sos7zaec 7 = 0993 Fa 00 05 19 
REL BB 3D 7D Eid TRA SORDOPS1 5R2), SUAMALL 08 30K 09% Gor 0987 SI 
3 * Bk YES, CALL TC ROOTINE *y S000 ‘968 01 OWE Hag 
LH ORGS FZ BD OH a7 JF = PSGRIRZD Bs) wm 119 aa 
aha 
ie 40 * GEN: GORI i aiag 


ty ots EH 


2464 
2350 


0057 2267 «= 2268 
0059 2268 2269 2271 
ADSLOG C 001 005A 2271 = 2275 

SCADSLOT C 001 008A 2384 2386 

SCADSNAT C 001 0090 2418 2420 

SCADSNAI C 001 009B 2461 © 2462 
SCADSNA? C 001 O09C 2462 2463 
SCADSPI@ C 001 000A 2098 2100 
SCADSQS C€ 001 0099 2457 = 2459 
BJ SCADSSCS C 001 002B 2228 2229 
SCADSSIO C 001 0020 2229 2231 
SCADSSJQ C 001 0044 2242 ©2244 
SCADSSMS C 001 0029 2227 2228 
SCADSSPF C001 0009 2624 4149 4284 


i 


17; 


F26 
09/11/81 12/08/81 02:16 MSCPR MSCPR ~ CO D PROCESSOR WAIT ROUTINE PAGE = 83 09/11/81 12/08/81 02:16 01 SNECPR MMSCPR - COMMAND PROCE: 
01 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR | 
0957 F4 01 04 0% SVC SVCXFER, QREFRESH CALL CPTC 40970000 | 0: 0999 SF 6F 6F 6F / 
096A _1F 096A 4097 OC ALICRCPTC) RIB 40980000 ‘ 
4098 * END; 40990000 0990 B8 01 D9 ‘ 
4099 */* */ 41000000 | 03} 4 
4100 K / RRRRARAARARRERAARAARAERAERRARAAR RARER RERARRERAERAERAARRRERARARRRARRR | 41010000 O9AD F2 90 OC d 
4101 */* PROCESS FOR HISTORY FILE WRAP FEATURE. / 41020000 
M102 8 /RRAARAARAARARRRARRARRARRERRERARAARAERARAAARARRAARARERRRARARRARRAERER 41030000 | 04 09A3 B8 02 C3 4 
4103 */* x 41040000 ‘ 
4104 * GEN; /* CALL HISTORY INIT TRANSIENT */ 41050000 O9A6 F2 90 06 4 
0968 4105 MSC@0320 EQU * 4020 41060000 | 05) 
0968 F4 01 10 4106 SVC__ SVCXIENT, QREFRESH 41070000 Q9A9 OC _07 0880 0BA3 
O96E OCF1 O96F 4107 OC = AL2CNIPSSHFID 41080000 
4108 * = REGCXR1)=VARCNUACPTCB+TCBUCBa)(1:2); /* GET INITIALIZATION JCB */ 41090000 | 06 
0970 35 01 0215 4109 L NUACPTCB+TCBJCBa, XR1 4024 41100000 
4110 * TF “ZERO, REGCXR1=REGCXR1)+X00 THEN /* VALID ADDRESS? */] 41110000 
0974 36 01 OBAS an A KOO, XR1 4025 41120000 | 07] 


/* YES, FREE JCB 41130000 


le * bo; 
4113 J 


$3 


O9AF D2 02 00 


0982 SC 11 11 0689 


SVC SVCFREE.QO = ISSUE FREE REQUEST 
0984 0070 0985 4119 OC = AL2CJCBLLNTHD LENGTH OF AREA TO FREE 41200000 | 10) 0987 AC 07 28 08 


0986 C1 0986 4120 OC A 1K01) FREE FUNCTION BYTE : 41210000 
#121 *** END OF EXPANSION = 41220000 O9BB F4 01 04 
a2* END; 41z30000 | 1 


IF _XR2->SCADCFG3=ON(SCAPOTTO) THEN /* NEED TO START AUTOCALL TASK2*/ O9BE_01 OWE 
7] O98F 8D 00 10 
O92 F2 81 85 
«0 * 00; f° WES, START IT " 41310000 | 1 
0990 F2 10 BE a3 JT 95ca0330 039 1320000 
0993 4132 WIPRO EU * a9 41330000 
ape = 130000 
ER BRR RR RARERRRT RAR RAA RAR AAA LORI DREN IR AT SPARTANS TTATTOR,Y ‘kets 
4035 */* GET SPACE FOR A JOR CONTROL BLOCK. TT WILL BE USED IW ATTACH OF */ ai3e0000 [16] 0905 34 G2 OREF 
4136 */* AUTOCALL TASK AOD AS A UO AREA FOR AOTOORLL TABK FIND. */ 
0909 20 OH OBA 3 
I 
O9CE 
ORE BF GO 09 Oba 


1% | OOS £2 05 On 


SIS AS 8 SAS Ble eee em ele ee lk ele oe lee ele me el lm mle me ole mala 


VION © 001 0023 2222 2224 
SCALOGSS C 001 0027 2225 = 2227 
SCAMACDP C 001 0004 2394 

COV C 001 0010 2392 
SCAMACNG C 001 0008 2393 
SCAMACSP C 001 0002 2395 
SCAMACUL C 001 0008 24374129 
SCAMACU2 C 001 0004 2438 = 4129 
SCAMACU3 C 001 0002 2439 4129 
SCAMACU4 C001 0001 2440 4129 


1 f 


1 


1 


0015 2186 
0040 2287 


2196 4309*% 


3 VO9/11/81 12/08/81 02:16 
ERR LOC OBJECT CODE 


02] 090C Co 87 OSCE 


40970000 SLC JCBLLNTH~1(112,XR1), JCBLLNTH~1C, XR1) 
40980000 4148 * __IF_XR2->SCADSSPF=ONCSCAMK21) THEN /® X.21 FEATURE? a0478%/ 
‘40990000 0990 B8 01 09 4149 TBN  SCADSSPF(, XR2), SCANK21 4055 41500000 0 
x/ 41000000 | 0 4150 * —_IF XR2->SCADCPS3=ONCSCANK21S) THEN /* AND SWITCHED? a0478*/ 41510000 | 03 
wRR / 41010000 O9A0 F2 90 OC 4151 JF _*6Ca0400 4056 41520000 
®/ 41020000 
RRR] 41030000 O9A3 B8 02 C3 4152 TBN — SCADCPS3(, XR2), SCANX21S 4056 41530000 | 04 
x] 41040000 4153 * NIPFNDAC+SFNDONMG(1:8)=NIP6C21; /* YES, CHANGE TASK NAME 9a478*/ 41540000 
tT */ 41050000 O9A6 F2 90 06 4154 JF SCa0420 4057 41550000 
4020 41060000 U 
41070000 O9A9 OC 07 0830 OBA3 4155 HNC __NIPFNDAC+SFNDONNBC008), NIP#GC21 4057 41560000 O9E0 AF 11 11 11 
41080000 4156 */* */ 41570000 
n] 41090000 4157 K [RRRRRARARRRARARRERRARRERRERRARRRRERRRER ERE RERRERERRRERRARERRERRERER J 41590000 | 06 O9E4 BC 40 00 
8024 41100000 4158 */® FIND AUTOCALL TASK. IF TASK MODULE IS NOT FOUND, TERMINATE THE * 41590000 
7] #1110000 4159 *7* AUTOCALL FUNCTION. 7] ‘41600000 O9E7 BC 01 03 
*/ 41130000 4161 */* x 41620000 O9EA BC 04 04 
1026 1140000 4162 * REGCXR2)=REGCXR1); 7* ¥R2-> JCB AREA - FIND PARM */ 41630000 
OOAF 4163 MSCa0420 EQU  * OS]  O9ED 8C 02 61 OCBF 
a] 41150000 
027 41160000 OSAF D2 02 00 LA OC XRD. XR2Z 064 O9F2 AC 01 54 61 
Ry 41170000 4166 * XR2->SFNDLEN-1(1:18)=VARCHIPFNDAC*SFNDLEN-1)(1:18); /* PAPPLIST */ 41670000 | OF 
41190000 0982 SC 11 11 0889 4167 FNC SFNDLEN-1(018, XR2), NIPFNOAC*SENDLEN-1 O9F6 8C 01 56 OB6C 
41190000 4168 
41200000 | 1 10] 09FB AC 00 2A 56 
41210000 
41220000 O9FF 35 01 0060 
41730000 | 1 4172 * GENCOC ALICRFIND)); ” 1 
till 41240000 OWE 4173 OC AMLICRFINDD 0903 XC 01 47 20 
1036 41750000 
036 41260000 | 12 G 
41270000 
41290000 
038 41790000 
038 #7300000 
"J 41310000 ‘ORDT F4 00 06 
039 #3320000 ORDA 0010 On 
CROC 81 on 
039 41330000 
=f 7130000 ORO) WC 18 18 0677 
my #1350000 OAI2 ST 01 O8 05 
sy 1369000 OAIS 3D 97 28 OBAS 
=y 770000 ORI F2 01 93 
my aD 
*y ao ORE 7A 40 OC 


7 x 


SCAMHEMT C001 0020 2473 


SCAMHLDP C 001 0020 2288 ~~ 3864 4307 
SCAMHVSZ C 001 OO00F 2482 ; 
SCAMHURP C 001 0080 2467 


SCAMICRI C 001 0008 240; 
SCAMICR2 C 001 0002 2405 
SCAMICS C 001 0004 2182 


SCAMIEXC C 001 0008 2593 

SCAMIOCL C 001 0010 2580 

SCANIPL C001 0010 2279 

SCAMIPLA C 001 0080 2306 

SCAMIPLC C 001 0040 2277 ©4352 

SCAMIPUP C 001 0010 2289 3864 43624366 ©4408 4443 


SCAMJOBQ C 001 0020 2166 4083 

18)SCAMJQFM C 001 0002 2158 4018 4066 4438 
SCAMJQHD C 001 0004 2156 
SCAIQS € 001 0004 2333 
HSCANKEYS C 001 0080 2338 
SCAMKKKF C 001 0080 2625 4284 


SCAMKISG C 001 0002 2173 
F28 
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l | 


15 


16 


17 


1 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SC 


01 01 
41490000 | 02} 090C CO 87 OSCE 97 B  mSCa0460 41980000 0: 4249 * 
41490000 0A31 3B 01 0014 4250 
0 03) 


4081 
41500000 O9EO 4198 MSCA0470 EQU * 4081 41990000 4251 * 
41510000 4199 */* "/ 4252 * 
41520000 4200 R [RERARRARARARARERRARAARARAKRARERAERRRRARRARRARRRRAARARARERIERAR RRA / 42010000 4253 x 
4201 -*7* INITIALIZE JCB. %/ 42020000 0A35 F2 87 OF 4254 
41530000 04 4202 & /ARRARAAAAARARAARARARAARARARARAKRKARAKRARRARRERRKRARRARAAAARRAKRAARARR / 42030000 (4 
41540000 4203 */* x] 42040000 0A38_ 4255 IMS 
41550000 4204 * — XR2->$FNDLEN-11:18)=XR2->VARCSFNDLEN-1)(1:18) 4256 * 
0 4205 * ~XR2->VARCSFNDLEN-1); /® RESET FIND  aaa78*/ 42060000 }05)  0A38 OF 00 02F2 OBA9 4257 
41560000 O9€0 AF 11 11 11 4206 SLC SFNDLEN-1(018, XR2), SENDLEN-1(, XR2) 4258 * 
41570000 4207 ® XR2-> JCBOINIT=JCBNRUNG; 7* INITIALIZE JCB DEFAALTS  */ 42080000 OA3E 7A 01 77 4259 
41580000 | 06] 0964 BC 40 00 4208 PVT — SCBDINITC, XR2), JCBMRUNG 4089 42090000 |06 4260 * 
41590000 4209 * —_XR2->JCBOSCH2=JCBMNONI; ” x] 42100000 OA41_ OF 00 0060 OBA9 4261 
41600000 O9E7 BC 01 03 4210 (VI SCBOSCH2(, XR2), JCBMNONT 4090 42110000 4262 * 
41610000 | 07 421i * —_XR2->JCBDSCH3=JCBMEOP; ” */ 42120000 {07 OMT 4263 MSI 
41620000 O9EA BC 04 04 4212 MVI__JCBOSCH3C, XR2), JCBMEOHP 4091 42130000 4264 * 
41630000 4213 * —XR2->JCBOJOGNC:3)=NIPHINI; P a7 427140000 4265 * 
41640000 | 08]  O9ED 8C 02 61 OCBF 4214 PMC) JCBDJOBNC003, XRZ), NIPRIN 4092 42150000 }08 4266 * 
41650000 4215 * —_XR2-> JCBODTFA@C1:2)=XR2->JCROJ0BN; /* x 42160000 OAA? F2 87 04 4267 
‘41660000 O9F2 6 : 
41670000 | 09 azign000 |09 OMA 4268 MSI 
41680000 4269 * 
41690000 4219 * —X82-> JCODAGSI=KR2-> OBOE AG: =—=St*«*/* ‘STORE REGION Size 7] 4220000 OAGA 38 01 0014 4210 
41700000 | 10] O9FB AC 00 28 56 4220 FNC JCBORESZ(, XR2), JOBUDFRG(, XR2) 4095 42710000 110 an* 
41710000 4221 * —_ REGCARID=SCADATUBC1:2); 7* STORE JOB 1 MBER IN JCB */ 42220000 ORE 4272 PSC 
#720000 OFF 35 01 0060 QR L SCAONTUB, xR 096 ‘4270000 a3 * 
41730000 | 1 @2B*  382->COBO-D=R1-TUSIO; /* ia azzago0o 11 a4* 
41740000 QA03 9C 01 47 20 224 FNC SCBDIBIOCO02, XRZ), TUBSIDC. XR1) 097 47750000 4775 * 
OME F2 87 03 a6 
OAS] 4277 Pex 
ONS! 8B 01 14 a8 
OFG4 4279 FST 
47310000 4280 “Wi! 
1900000 7320000 31 * 
41310000 42330000 ON56 4787 Nit 
41820000 «7300000 OR54 233 96L 
“#1330000 OmC $i On «34 OC MCKOO") ATTRIBUTES 7 S000 OnG4 38 So 0009 <i 
ago | 15 25 = GD OF EXPESION «360000 a5 * 
448350000 OM 4 13 18 0877 423% il 125, SRL), MUPPETS SATE -1 7" OWE PRRNLIST */ <z370000 ONS F2 90 05 2% 
“99s60000 OM? KK Ol oS 53) oC PERL ED. PARC RD SET LOND MOOR ana? Cra 


SCAMPWSF C 001 0040 2165, 
SCAMRBLD C 001 0008 2280 3862 4069 4412 
14/SCAMRCFG C 001 0002 2511 
SCAMRILP C 001 0020 2579 
SCAMRSEC C 001 0080 2518 
T5{SCAMRWAV C 001 0040 2506 4314 
SCAMRUCF C001 0001 2512 4314 
SCAMRFT C 001 0010 2508 
16] SCAMRUNV C 001 0020 2507 
SCAMRWS C001 0008 2181 


OISCAMSACT C 001 0010 2152 
SCAMSEC C 001 0002 2334 
SCANSFLG C 001 0008 2191 

19]SCAMSIZE C 001 0006 2087 2095 
SCANSJE C001 0020 2330 


F29 
8112/08/81 02:16 6 *PECPR MSCPR ~- COMMAND PROCESSOR WAIT ROUTINE PAGE 86 VO9/11/81 12/08/81 02:16 a SPISCPR SNSCPR - PROCESS FOR REMOTE bk 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STHT S 
41980000 |0 4249 * = SCADCF'G3(1:1)=OFFCSCAMOTTO); © /® RESET AUTOCALL SUPPORT x/ 42500000 | 0. 4299 * 
OA31_ 3B 01 0014 4250 SBF __ SCADCFG3, SCADTTO 4120 42510000 4300 * 
41990000 4251 * END; 42520000 4301 * 
42000000 | 0: 4252 ® ELSE 42530000 | 03} 4302 * 
42010000 4253 * 00; [* OKAY INIT FOR AUTOCALL TASK */ 42540000 4303 * 
42020000 0A35 F2 87 OF 4254 J *SCa0500 4123 42550000 4304 * 
42030000 |04 04] 0A60 C2 01 0000 4305 
42040000 0A38 4255 MSCa0600 FQU * 4123 42560000 4306 * 
“42050000 4256 * = NUBPLBF1+F LADLBUSC1: 1)=VARCNUAA#LBF 1+F LADLBUS)(1:1)-X1; /*USE CNTR®/ 42570000 0A64 7B 20 5C 4307 
42060000 |05] 0038 OF 00 02F2 OBAD 4257 SLC NUPLBF1+F 1ADLBUS(O01),X1 4124 42590000 | 05} 4308 * 
258 * _ XR1->TCBSTAT6=ONCTCBOEDO); /* DEDICATED OVERRIDE FLAG ——*/ 0A67 7B 01 15 4309 
4259 SON TCBSTAT6(,XR1), TCBDEDO 4125 42600000 #i0 * 
4260 * = SCADCTUT(1:1)=SCADCTUT(1:1)-K1; /* DECREMENT USER TASK COUNT */ 06} + OA6A 70 00 91 ae 
4126 
OASD F2 81 26 Bi 
07 
OA70 78 C1 AS 4314 
42660000 4315 * 
4266" 00; 7* STOCALL TASK NOT FLUMD = */ 42670000 | 05; —9A73 F2 90 20 4316 
OAS? F2 87 04 4267 J __ssca0510 4130 42680000 
Bi * 
OMA 4268 1SCa0e EQU* 4130 42690000 | 09 GL * 
4269 * = SCADLFG3C1:1)=0FF(SCANDITO); ——_/* ~RESET AUTOCALL SUPPORT wi 42700000 G19 * 
OA4A 38 01 0014 4710 SOF = SCADCFG3, SCAMDTTO 431 42710000 320 */ 
42720000 
42730000 
27000 
arson 
47760000 


GEMCTILE “SSORR - ROCESS FOR REMIT WORK SRATIONS 
ORS 4257 (SED HU * 


STOPJOB C 001 
STRTPRT C 001 


15/SCAMIFM C001 0010 2311 
SCAMIONG C001 0000 2128 


SCAN1024 C901 0008 2312 
SCAN1255 C 001 0080 2389 
SCAMI28K C 001 0040 2089 
SCANL3"G C001 O601 2127 
17] SCAM130M C 001 00C1 2137 
SCAN195" C001 00E1 2138 
SCAMZFM C001 0020 2310 
SI SCANZMEM C 001 0040 2309 
SCAN256K C001 0080 2088 


SCAN260" C 001 0001 2139 
SCAN27NG C 001 0081 2126 
SCAM62PC_C 001 0040 2134 


SCAN65NG C 001 0001 2135 
F30 


1 


SVCGPOST C 001 
SVCGWAIT C 001 0000 2647 
SVCIOXNT C 001 
SVCISEC C001 0008 2655 
C 001 


1 


1 


09/11/81 12/08/81 02:16 SYSCPR MGCPR - PROCESS FOR REMOTE WORK STATIO PAGE 87 09/11/81 12/08/81 02:16 by SMSCPR MMSCPR ~ PROCESS FOR REf 
01 

ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR 5 
42500000 | 0 4299 */* */ 43000000 P) ‘ 
) 42510000 4300 X/RRRAAAAAEARAAAARALRARRARAKARRARAARARRARAARAARAAARARARAAAARAARAARARAR / 43010000 OASF 7A 40 5B 4 
42520000 4301 */*® PROCESS FOR REMOTE WORK STATIONS */ 43020000 ‘ 
42530000 0: 4302 & [ RERRRARRARARARERARRARRERRARRARRARRARRRRRARERRARARERERARARRERRARRAERH 43030000 t é 
42540000 4303 */* &/ 43040000 4 
42550000 4304 * —REGCXR1)=ADORCNUASTA) ; /* XRI PTR SCA */ 43050000 4 
04) 0960 C2 01 0000 4305 LA NUASCA, XR] 4155 43060000 p)4 4 
42560000 4306 * _XR1->SCASYS2=OFF(SCAMHLDP); /* RESET DEDICATION */ 43070000 4 
47570000 0A64 7B 20 5C 4307 SBF  SCASYS2(, XR1), SCAMHLDP 4156 43080000 4 
az5e0000 | 05 4308 *  XR1->SCANBSV=OFF (SCAMDEAD); ” */ 43090000 p>) 4 
42590000 OA6? 7B 01 15 4309 SOF SCAMBSVC, XR1), SCAMDEAD 4157 43100000 4 
42600000 4310 ® IF XR1->SCADLINOC1:1)=0 THEN UNICATIONS? AND ..... OAA2 38 10 005C 4 
42610000 | 06 Bu CLI SCADLIN®C, XR1D,0 6 4 
42620000 4312 _* _IF XR1->SCADCFG9=ONCSCANRUSA+SCANRUAV*SCANRUCE) THEN /* REMOTES? */ OAAS F2 90 33 4 

“42630000 OR6D F2 81 26 B13 JE S(80560 4159 13140000 
4260000 | 01 p 4 
42650000 OA70 78 C1 AB B14 TRN SCADCFG9(, XR1), SCARRUSA+SCAMRUAV+ SCARUCE 4159 43150000 OAAD 3B 10 005C 4 
42660000 ais* 00; F*YES, 00 IPL AUTO VARY ONLINE */ [3160000 4 
aze7o0no | OB| = 0A73 F2 90 20 B16 JF = r6ca0580 4160 48170000 PS} = ORAD C2 01 0200 4 
42680000 4 
; E OABI 4E 00 73 ORAS 4 
2650000 | 09 yp 4 
<z700000 ; « 

ORB 

azt7000 | 10 0 4 
2730000 OnB6 75 01 OD « 

42740000 OAT6 4C 07 6B OBBB BB FAC SCAIPLUL(008_ 221), IPP #166 3240000 
1 G24 * =—- REGO =ADORCSCAIPLUL-BUPLLEM 1); 7°02 -> AUTO WARY PARALIST */ «xzsn000 Bij ORB 70 F9 48 « 
Gaye C2 02 0064 BB LA SCAIPUUN-SP LLB 12 167 43260000 ONC F2 81 07 « 

G6* * CALL AUTO WARY ROUTINE */ 327000 

A OAIF Fa o1 10 ou SHC SUCKIENT .QHEFRESH <Gzmoo0 LZ] (ORB 70 00 OC « 
Ong? OCCD on G78 2G) enon i OAC2 00 01 anBS « 

33 ue 
e000 « 
Sex 4 
[333 (3 
« 
& 
we @ 
® 


ae 


14 


1 


7 


18 


1 


1 12/08/81 02:16 


43000000 
43010000 
43020000 
43030000 
43040000 
43050000 
43060000 
43070000 
13086006 
43090000 
43100000 
10000 


ie 


bl Dati d 


STOPOONE C 001 0013 0462 
STOPJOB C 001 0028 0483 
STRTPRT C001 0011 0460 
SVCASGN C 001 000A 2657 
SVCASSGN C 001 0006 2653 
SVCCOre «C001 0044 2703 
SVCCXNT C001 0050 2707 
SVCDSPCH C 001 0027 2687 
SVCDUMP C001 0022 2682 
SVCEXIT C 001 0011 2664 
SVCFD C001 0040 2699 
SVCFREE C001 0007 2654 
SVCFREEP C 001 0013 2666 
SVCGETP C001 0012 2665 
SVCGPOST C 001 0001 2648 
SVCGWAIT C001 0000 2647 
SVCIOXNT C 001 0045 2704 
SVCISEC C001 0008 2655 
SVCIO C001 0041 2700 
SVCKBTR C001 O005C 2711 


SCPR MMSCPR - PROCESS FOR REMOTE WORK STATIONS 


2 a ae 


APM & Ww 


SVCTPOST C 001 


3832 3922 4141 4232 


4402 


4118 


3900 


F31 


PAGE 88 VO9/11/81 12/08/81 02:16 S*SCPR MMSCPR - PROCESS FOR REMOTE WOR 


D1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOU 
D 4351 * XRI->SCASYS1C1:1)=ON(SCAMIPLC);  /® SET IPL PROCESSING COMPLETE */ 43520000 {0 4400 * 
OASF 7A 40 5B 4352 SBN _SCASYSIC,XR1), SCAMIPLC 4188 43530000 OADC 4401 NSC 
4353 *7* */ 43540000 OADC F400 11 4902 
’ 4354 %/ARRARAAARRAARARARRRRERRARRRRRRARAERARRERRARRARAARRARARRRRRRRARERIARER 43550000 10 4403 WK 
4355 */* IF A STARTUP PROCEDURE HAS BEEN REQUESTED, IT WILL BE STARTED  * 43560000 4404 *PRC 
4356 */* AT THIS TIME BY POSTING THE STARTUP TCB CTCB FOR REBUILD) OUT  */ 43570000 OADF 4405 MSCr 
D4 4357 */* OF ITS WAIT. STARTUP TASK HAS BEEN WAITING FOR [PL TO COMPLETE */ 43590000 {04 4406 * 
é 4358 */* ITS INITIALIZATION. * 43590000 | ORDE 4407 1508 
4359 * /SPRARRRRERERRARRRRRRARERHRARRARRARRRARETAAURAREARRARRRERERAR RRR RRR 73600000 OADF 38 10 005C 48 
D5) 4360 */* a] 43610000 |05]  OAE3 F2 90 4£ 49 
4361 * IF SCASYS2(1:1)=ONCSCAMIPUP) THEN /* STARTUP PROCEDURE? aaia5*/ 43620000 
OAA2 38 10 005C 4362 TBN = SCASYS2, SCARIPUP 4197 43630000 ORES 4410 ('SCa 
D6) 4363 * 00; 7* YES, RESTART IT aaes*/ 43640000 {06 am* | 
ORAS F2 90 33 364 *___recaosoo 4198 43650000 OREG 38 08 005C am 
“ 
D 4365 * = SCASYS201:1)=OFFCSCARIPUP); 7* RESET STARTUP FLAG = aml a5*/ 43660006 }0 OREA F2 90 43 “4 
OARD 38 10 005C oss SBF SCASYS2, SCANIIPUP 219 43670000 
4367 * =“ REGO) = ADORGARLPTCE); /* ¥Ri PTR TCE CHAIN ass 3680000 415 * 
DS} = ORAD C2 01 0200 63 LAs: MARCPTCEARI 4200 43690000 JU0 16 * 
ORED 35 01 O141 “7 
21 aig 
amo ORF! F6 00 08 “19 
aes ONF4 7B 20 & 4a0 
ON? F6 00 OF Cra 
“2 * 
a8 g7eo000 ONFA C2 02 Ob0D 43 
Bib* £§ 3770000 OAFE F400 51 “4 
OBO1 O4 ORl 4025 
ON? O1 CBR? 445 
0803 01 0803 4477 
HEB | 
B04 BB 30 G1 “09 
0807 BC 00 iF Ee 
1 * 
ORDA F4 00 Si Bad 
i we LR: 133 
OBIE 01 WBE 4436 
OF 01 Line 
——e 
“ny * 
ES, SE TT ay B20 BA 02 GOL? 
za i‘ * 
Bi 3D GD Obes 70g) 
“a * 
EIB F2 1 OF ey 
Os KW One Bassa 
Bail 


2 
ues 
a 


LAPOMIU Ll WE L094 LL TCBDEWT C 001 
SVCTPOST C001 001D 2676 4393 
SVCTWA C001 0051 2708 

AISVCTWAIT C001 OO1E 2677 4454 1 
SVCUNSTK C001 0005 2652 
SVCWAIT C 001 0002 2649 4015 
SVCWSC C001 0043 2702 1 

] 


TCBDSKWT C 001 
TCBOUNP C001 0020 3028 
TCBDWAIT C 001 0010 2809 2815 4386 
TCBECMER C 001 002F 2930 


1 
15 
SVCXAF C001 0020 2693 
SVCXFER C001 0004 2651 4025 4033 4056 4096 4171 
16|SVCXFR C001 00F5 2736 : 
SVCXIENT C 001 0010 2663 3994 4087 4106 4241 4293 4327 4342 TCBECNGW C001 0028 2924 
SVCXNTOF C 001 0018 2671 TCBEXIT C 001 OO5F 2942 2943 2944 
T7|SWAPIO. C001 0080 0832 TZ} TCBEXTRA C 001 0020 2846 
TCBFORCD C 001 0020 2796 
18 
1 


TCBFSWAP C 001 0004 2800 


SYS C 001 0040 1382 
TASFAIL C001 0020 0887 


TCBAARR C001 001D 2910 2911 18) TCBFWAIT C 001 

TCBAIAR C 001 OO1F 2911 2912 TCBGWAIT C 001 

TCBAIM.1 C 001 0024 2914 ©2915 TCBHOMPT C 001 0002 3000 
QICBAINL2 C 001 0025 2915 2916 19 TCBICXWT C 001 0004 2838 


TCBIDACT C001 00E4 2960 4567 
TCBIDBEL C 001 OOEE 2970 


TCBAIM.3 C 001 0026 2916 2917 
TCBAINL4 C 001 0027 2917 
¢ 


F32 
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1 


01 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOL 


02} 0827 80 0B27 4451 


4452 ** 
45. ® 
03} 0828 F4 00 1€ 4454 
0828 10 0828 4455 
[z 2 4456 *** 
4406 * DO WHILE (SCASYS2(1:1)=ONCSCAMIPUP)); /* STARTUP IN PROCESS? aai45*/ 0 4457 * 
OADF 4407 MSCa0710 EQU * 223 44080000 4458 * 1 
OADF 38 10 005C rr] TON SCASYS2, SCANIPUP 2B 44090000 OB2C F400 04 4459 
ORE3 F2 90 4€ 4009 # = gca0720 4223 aaro0000 | 05] —0B2F 04 OB2F 4460 
4461 * € 
OAEG 4410 PSCA0700 EQU * rv75) 44110000 62 
4411 * IF SCASYS2(1:1)=ON(SCAMRBLD) THEN /* AND REBUILD? aes) 44120000 | 06 4463 * 
OAE6 38 08 005C 4412 TON _ SCASYS2, SCAMRBLD a4 44130000 464 * E 
“3 * 00: 7* YES, WAIT FOR IPL mis 44140000 0830 4465 FSC 
OREA F2 90 3 a4 JF eca740 QB 44150000 |07] 0830 CO 87 OADF 4966 
a5 * 7 SET OFF SSP ATTRIBUTES */ 44160000 0834 4467 SC 
46 * ToBa R-ARI mi — 1 “yf sairo000 108 68° G 
OAED 35 01 0141 “7 lt im GET TCS ADDRESS. 4190000 469 * 
i 8 =D OF EXPANSION ** 44190000 “70 *T 
ONFI F6 00 08 9 Lore expan 7” SET OPERAODS REAL */ #nn000 109 «0834 Fa 00 04 “mn 
0837 04 0n37 4472 


SOF __ TOBSTAT4(, x1), TORSYSIN /* RESET SYSTEM TASK FLAG */ 
LAR INCOR HOP 2R CRICINL 7 


13) TCBKCALL C 001 0008 2848 
TCBKWAIT C 001 C001 2829 
TCBLCKOT C 001 
14] TCBLCKHI C 001 0004 2952 
TCBLCKMK C 001 0069 2946 2956 
TCBLCKPI C 001 0008 2951 
15] TCBLCKSI C 001 0040 2948 
TCBLCKSP C 001 0002 2953 
TCBLCKVI C 601 0020 2949 
16] TCBLCKSI C 001 
TCBLDISK C 001 
TCBLOREL C 001 0057 2936 2937 
17 TCBLEN C 001 0080 3067 
TCBLINWT C G01 


LOT TCBDEWT C 001 0008 2837 
TCBOKO C001 0001 3012 


TCBOKTWT C 001 0020 2835 
4/TCBDMEPD C 001 0002 2850 
TCBOYPPD C001 0001 3001 
TCBDSKTR C 001 0040 3027 
TCBOSKWT C 001 0010 2836 
TCBDUMP__C 0010020 3028 


TCBDWAIT C 001 0010 2809 2815 4386 4394 4455 
16]TCBECMER C 001 002F 2930 
TCBECNGW C 001 0028 2924 
TCBEXIT C€ 001 OO5F 2942 2943 2944 
17|TCBEXTRA C 001 0020 2846 


1 


1 


TCBFSWAP C 001 0004 2800 
Uj TCBFWAIT C 001 0002 2828 
TCBGWAIT C 001 0020 2808 2815 


TCBHOFPT C 001 0002 3000 
TCBICXWT C 001 0004 2838 
TCBIDACT C001 O0E4 2960 4567 
TCBIDBEL C 001 OOEE 2970 
F33 
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TCBMSSIZ C 001 


SNSCPR SSCPR - DATA AREAS 
01 
ERR LOC OBJECT CODE ADOR STI 


PAGE 90 09/11/81 12/08/81 02:16 


1/81 12/08/81 02:16 


44010000 DC ALICPREEMPT+0+0) 02 448: 
44020000 4452 *** END OF EXPANSION ** 44530000 448! 
44030000 * TWAIT MASK-TCBOUAIT, 0-0 7* WAIT FOR IPL COMPLETE aal45*/ 44540000 4486 
44040000 0828 F4 00 1E “54 SVC SVCTVAIT.O 44550000 | 0 48) 
44050000 0828 10 0828 4455 OC ALICTCBOWAIT) 44560000 0846 4488 
“44060000 45% *** END OF EXPANSION * 44570000 0846 00000000 R49 
44070000 “61 * $E0J 7* TERMINATE WAIT ROUTINE a@145*/ 44590000 | 04] 084A 0000 OB4B 4490 
44080000 4458 * LINKAGE TO END OF JOB ROUTINES 44590000 0B4C 0000 OB4D 4491 
44090000 OBC F4 00 04 rr.) Svc X"04"X°00" EO SWC 44600000 0B4E 0000 ORF 4492 
44100000 OB2F 04 OB2F 4460 oC OMI '04" EOJ RIB 44610000 | 05] = 0850 0000 0851 4493 
4461 * END OF EXPANSION 44620000 0852 ED 0B52 4494 
44110000 462 *** END OF EXPANSION ** 630000 0853 07 0B53 4495 
44120000 “63 * END; aagenn0n | 06] = 0854 FO 0854 4496 
4130000 464 * ED: 44650000 0855 0000 OB56 4497 
44140000 0830 4465 F5CA0740 EGU * qi 000 (0857 00000000 DESA 4498 
B  FSCR0710 0858 BS 0858 4499 


13) TCBKCALL C 001 0008 2848 13] TCBPRSNR C 001 OOFO 2866 


TCBKWAIT C001 0001 2829 TCBPRSN1 C001 O0FO 2865 
TCBLCKDI C 001 0080 2947 TCBPRSP C 001 
14{ TCBLCKHI C 001 0004 2952 14) TCBPRSRJ C 001 
TCBLCKMK C001 0069 2946 2956 TCBPRSWT C 001 
TCBLCKPI C 001 0008 2951 
15} TCBLCKSI C 001 0040 2948 15] TCBPRUDL C 001 


TCBLCKSP C 001 0002 2953 
TCBLCKVI C 001 0020 2949 
16] TCBLCK5I C 001 0010 2950 16] TCBPUSH C 001 
TCBLDISK C 001 005A 2938 2939 2940 
TCBLDREL C 001 0057 2936 2937 2938 
17] TCBLEN C001 0080 3067 17/TCBRDYQ C 001 
TCBLINWT C v1 6049 2834 }TCBRGSIZ C 001 0020 2926 2! 
TCBLONGW C001 0010 2797 
18] TCBMABTM C 001 0010 3008 1 
TCBMAXID C 001 O0EO 2987 
TCBMIC C001 0057 2937 
19] TCBPRTMX C 001 0072 3017 3018 1 
0 


TCBRWAL; C 001 0004 2827 
TCBSDTAC ¢ 001 0002 3046 
TCBSDTSO C O91 0040 3043 
TCBSFILK C00, 010 3029 


TCBMSAFL C001 0008 3009 a 
TCBSHORC C 00) 0080 2993 


TCBMSSI2 C 001 0020 2925 2926 


F34 
709/11/81 12768781 02:16 - @FSCPR AYSCPR - DATA AREAS at PAGE 91 VO9/11/81 12/08/81 02:16 ant 4NSCPR - DATA AREAS 
3 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDF 
44520000 | 0 4484 * 44850000 | 02) 
44530000 4485 *IPATACH ATACH CREATE-YES,MSSIZ~7, SWAP-YES, PRIV-YES, REFRSH-YES, 44860000 
; 74540000 ~~ DATA-Y, JNAME-Y, TASKID-TCBIDBLD, TUB-Y, REAL-YES, 0001 
aas5n000 | 03 PRIOR-TCBPRBLD, SYS-Y, INIT-Y 03 0002 
44560000 ; 
44570000 ‘SSSN OF MODULE ; 0003 
4a5go000 | 04 LINK EDIT ADDRESS 04 
44590000 START CONTROL ADDRESS 
44600000 LD OFFSET/ TOTAL SECTORS 0004 
44610000 | 05) LOAD ADDRESS OD 0005 
44620000 DE AL1(X"80 X40 “eX "20 "X00 "#X 08 #K04"#K “00X01 °) 0006 
630000 0007 
aasennnn | 06 OC = ALICTCBPRBLD) PRIORITY ONLY IF NEW TASK 06 
44650000 oC MK) Te 
rT) 0857 00000000 CBSA 4496 wc KAO" SSGN WALUE OF NEXT TRASIENT TRON 
aas7oo0 | O7| + casB 88 (B58 4499 OC ALLCX“80 “X00 "9X “20K "10K "08 “eX 00X00 "*K 00") asonon0 | 0 
OBST F9 08ST 4500 OC MLICTCRIOBLD> TASK 1D ONLY IF NEU TAK «5010000 
600000 0850 0000 OS SOI oC (AL2CO) (AODRESS OF BEQUEST DATA 02000 OOF 
aassonno | 05 O008 4502 SATLOND EWU X'0B" LORDER PRIN LIST OFFSET «5030000 | 08] = 0BSF op000000 0862 
49700000 Q00C 4503 SATFLAG EQ SATLOADe] = FIRST FLAG BYTE OFFSET «o0n0000 63 0000 064 
99720000 0068 
<7 on - Tama PRL OMA 
SATO net 
aa asd 
TIN a6 
Ce) 73 
Chea’) Lhd 
er) wer 
avesnonen an 


S56 “ERROR RETURN CODES (WW RR IN IAT QDI, MERE 9: 
a ee Gon 


ATTACHED TASKS “TCE ew 


i 
ij 
| 4537 * FF OAT PACH (MAS GUCCESGRLL, MR 


POT SL TRB Tes) 


ee 


8 88 8 sig a sis s sie sais 8 gia 3: 


4 
* 


FHS THES 


— 


= 
3 


[oil — 
=" 3 
os Ts ct 


38 


be § 

if 
: 
pours 
= 
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4538 * ADDRESS, 
539_* 24Q00K 
0001 4540 SATERRO! EQU NOT ENOUGH STORAGE 45410000 
0002 4541 SATERROZ EQU x‘02' TASK NON-SWAPPABLE, AND NOT 
® " pane 


44910000 | 0 
aap20000 | ot i—its—‘“(Csi‘“‘“‘é‘ a LLULULULULULUmUmUmUmUmUmUhmUmUmhmUmUmhmm ey SR 
44930000 0004 4546 SATERROS EQU 
44940000 | 0 0005 4547 sare! 
44950000 0006 4548 SATER 
oe 44960000 0007 4549 SATE 
44970000 | 06 4550 *** END OF EXPANSION ** 
44980000 
14990000 4552 *IPACTSK ATACH CREATE~YES,MSSI2~1, SWAP~YES, PRIV-YES, REFRSH-YES, 
45000000 | 07; 4553 * DATA-NO, JNAME-Y, TASKID~TCBIDACT, TUB-NO, 45540000 
45010000 4554 * PRIOR-TCBPRBLD, SYS-Y, V-DC 
45020000 OBSF 4555 NIPACTSK EQU * 45560000 
45030000 | 08} © O0BSF 00000000 0B62 4556 OC = 4XL1'00' SSSN OF MODULE 45570000 
45040000 0863 0000 0864 4557 oO ALO) LINK EDIT ADDRESS 45580000 
45050000 0B65 0000 0866 4558 OC = AL2(0) START CONTROL ADDRESS 45590000 
45060000 | 09] 9867 0000 0B68 4559 OC =. 2XL1'00" RLD OFFSET/ TOTAL SECTORS 45600000 
45070000 0869 0000 OB6A 4560 OC _AL2C0) LOAD ADDRESS 45610000 
45080000 B6 6 80 '+X '00 '+X ‘00 '+X ‘00 '#X 00 ‘+X '04 "+X ‘CO "+X 01") 
45090000 | 10 DC ALI) #2K BLOCKS MAIN STORAGE 
45100000 OC _ALICTCBPRBLD) PRIORITY ONLY IF NEW TASK 
45110000 OC = AL2¢0) TUB ADDRESS 
45120000 | 11 0873 4565 oc XL4'0' SSSN VALUE OF NEXT TRANSIENT 
45130000 0B74 4566 DC _ALI(X'80 ‘+X '00 '+X "00 '+X '10'+X '08 '+X '00 '+X ‘00 '+X ‘00') 
45140000 DC = ALICTCBIDACT) TASK ID ONLY IF NEW TASK 
45150000 | 12] 0876 0000 DC AL2¢0) ADDRESS OF REQUEST DATA 
45160000 4569 ***® END OF EXPANSION ** 
45170000 
45180000 | 13 4571 *“IPFNDAC $FNOP V-DC, TYPE~0, NAME~#GCAC, SKIP-USER 
45190000 
45200000 4573 * ~~ PARAMETER LIST FOR SYSTEM FIND 45740000 
45210000 | 14 
45220000 0878 4575 NIPFNDAC EQU  * 45760000 
45230000 0B78 08 0B78 4576 OC AL1¢8) MEMBER TYPE 
45240000 | 15] 0879 7BC7C3C1C3404040 OB80 4577 DC = CL8'GCAC' MEMBER NAME 
45250000 0B81 80 OC AL1(128) SEARCH SYS LIBR AND 
45260000 RETURN DIRECTORY ENTRY 
45270000 | 16] — 0882 0000000000000000 0B89 4580 DOC = XL8'0' OUTPUT BY SYSTEM FIND 
45280000 4581 * END OF EXPANSION OF SFNOP 
45290000 4582 *** END OF EXPANSION ** 45830000 
45300000 | 17) 4583 *IPFND21 $FNOP V-DC, TYPE-O,NAME~#GC21, SKIP-USER aa478 45840000 
45310000 
45320000 4585 * PARAMETER LIST FOR SYSTEM FIND 45860000 0BB4 0000000000000000 OBBB 
45330000 | 18 OBB4 | 
45340000 OBSA 4587 NIPFNO21 EQU * 45880000 0BB4 04 OBBS | 
45350000 OB8A 08 OBSA 4583 oC = AL1€8) MEMBER TYPE 45890000 
45360000 | 19 OB8B 78C7C3F2F 1404040 0B92 4589 DC = CL8°*6C21' MEMBER NAME 45900000 
45370000 0893 80 0893 4590 DC —AL1€128) SEARCH SYS LIBR AND 45910000 
45380000 4591 * RETURN DIRECTORY ENTRY 45920000 
0 
E35 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


‘ 
3 


£8 GE SSSR AES IFS 


3 
4 


323 


ERR LOC OBJECT CODE 


CS ee a 


*PBCPR SMSCPR - MAIN STORAGE 


ADD 


J7IO} SWURARARAARRA THE CO Te CICITC BOT NDMP ACPA... GIUUAARARRAD 


Ty ta 


: TosTre__C 001 0051 2933 2934 4076 4446 


Ait € 001 0080 2794 
JTCBUATTD C 001 0080 2806 2815 
TCBUIOSP C001 0001 3047 

BWMASK C 001 0002 2817 2631 

17] Toawtsk2 C 001 0003 2831 2842 
TOBUSILK C 00% 0004 3031 

0055 2935 29 
0010 2822 

0070 30603062 

Oil 2901 2902 
TCBKWAIT C OC; 0040 2807 
TCB22RCS C001 0008 2997 _ 
“E001 0003 O11? 


F36 
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1 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT = 
45390000 | 02] — B94 0000000000000000 0B9B 4592 oC XL8‘0" OUTPUT BY SYSTEM FIND 45930000 
45400000 4593 * END OF EXPANSION OF $FNOP_ 45940000 
45410000 4594 *** END OF EXPANSION ** 45950000 
45420000 | 03] 0B9C 7BC7C3F2F1404040 OBA3 ‘y5 NIPMGC21 DC CLB‘MGC21' X21 TASK NAYE 40478 45960000 
45430000 4596 * 45970000 
45440000 4597 * 
45450000 (4 4598 RARKK 
45460000 4599 RRRRR MISC EQUATES AND CONSTANTS 
45470000 4600 RARRR 
45480000 | 05 4601 *** 
45490000 4602 _* 
45500000 OBA 08 OBA4 4603 X8 oc xt ‘08° CONSTANT OF 8 46040000 
45510000 | 06]  0BA4 4604 ORG *-1 46050000 
45520000 OBA4 0800 OBAS 4605 X800_—DC_—sXL2"0800'__—_—CONSTANT OF X‘0800" (2K) 46060000 
45530000 OBAS 4606 ORG *-1 46070000 
45540000 | 07] BAS 000000 OBA? 4607 X000 = CSs«iXL3 "00° CONSTANT OF ZERO 46080000 
45550000 OBA? . 4608 ORG *-1 - ; 46090000 
45560000 OBA? 000001 OBAD 4609 X00 ~——«DC-—=S«XL3“0000Gi* CONSTANT OF ONE 46100000 
45570000 | OS} §=or 7 4610 ORG = *-3 46110000 
45580000 «0000 OBAB 4611 X00 DC XL2‘0000' —_—CONSTANT OF ZERO 46120000 
45590000 BAS 4612 ORG = *-1 46130000 
45600000 | 0S) BAS 0001 OBA9 4613 X01 OC = XL2"0001' CONSTANT OF ONE 46140000 
45610000 OBA9 4614 ORG *-1 46150000 
45620000 OBAD 01 OBAD 4615 Xi be XLT ‘Oi* CONSTANT OF 1 46160000 
45630000 | 10]  0BA9 4616 ORG *1 46170000 
45640000 OBA 0100 OBAA 4617 X100_——sDC_—SXL 20100" _—_—_—CONSTANT OF X‘100° 46180000 
45650000 4618 * 46190000 
45660000 | 11] — OBAB 00 OBAB 4619 NIPSWTCH CS XL1‘00° IPL SWITCH BYTE 46200000 
45670000 0080 4620 WAITEND EQU 128 REBUILD COMPLETE FLAG 46210000 
45680000 4621 * 46220000 
45690000 | 1 4622 *** 46230000 
45700000 4623 SERRE 46240000 
45710000 4624 **88* RENOTE WORK STATION DATA AREAS 46250000 
45720000 | 13 4625 *RRRE 46260000 
4626 *** 46770000 
45740000 4627 ® 46280000 
14 OBAC 4628 NIPAVMSA EQU * 7 46290000 
45760000 OBAC_0000000000000000 0BB3 4629 NIPAWYSG DC _X18‘00' AUTO VARY MESSAGE PARNLIST 46300000 
45770000 OBAC 4630 ORG NIPAVTSa*ChCUSWI-CPCHCY 73310000 
45780000 | 15) — OBAC BC OBA 4631 OC) ALLCCNCUTRL+CNCUSUS*CNCULOG+CONCURDL +CNCUDUT) 496320000 
45790000 OBAF 4632 ORG NIPAWSa+CMCUSK2-CPONCU SUTTCH 2 46330000 
45800000 OBAF 20 OBAF 4633 DC ALICCRCUCOND) 6340000 
45810000 | 16]  OBAD 4634 ORG NIPAVRIS@+CNCUMIC~CPCHCU-1 MIC 96350000 
45820000 OBAD 5900 OBAE 4635 DC _XL2"5900" 46360000 
B84 4636 ORG 


45900000 } 19 4643 * EQUATES FOR SAVE OF STARTUP PROCEDURE 
45910000 O2Z03 4644 NIPSTART FQU MUMRDIOB+43 = a oe ree 


45920000 ae Ae MSTRTE EU MIPSTART+7 


. THIS TASK 15 BEING CHECKPOINTED 
eToencn Tearr aortrar 


TUBCNSK1 C 001 
TUBCHSK? C001 004F 3529 
TUBCNSKS C 001 0050 3533 
TUBCOMON C 001 0024 3375 
TUBCOMPL C001 0001 3165 
TUBCOUNT C 001 


601 
SSCPR MSCPR - DATA AREAS PAGE 94 VO9/11/81 12/08/81 02:16 : NSCPR SNSCPR - DATA AREA 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE | 
02 4646 * 2 
4647 RAKRAAAAAAKAAARKRRAKRAKAARAAARAARKAERAKKAARAKAAAAAA KAA AAA AAARARKAKA AK AKA KAA 
4648 * MAINTENANCE ARER. ® 46490000 Océ D4E2D202 ( 
03 4649 RAKRAAAKKAAAARAKRARAARARAKKRAAAAAAKRAAKKKAKAKRRAKAAKRKKKAAAAAKAAKAKKAA KKK KKK 46500000 03} ( 
OBBC 4659 NIPPATCH EQU * _ PATCH AREA . 46510000 OCFA 000000 
OBBC OBED 4651 ds cL50 PATCH AREA 46520000 OCFD 00 
04)  OcBE 4652 ORG *, 256, 190 46530000 (04) CFE 00 
4653 SERAENAREAERERAADREREEERARARNERRERKAR RARE ARERLERRER ARR RANA ENNNARAR BEER 46540000 [ 
4654 * WHERE-T0-GO TABLE x 
4655 RARRKRAKKKARARARERARRARARARKKRAAAAARERK RAK AKA ARAARAAARRAKARKRRARRAKARAAKAAAAKRAKRKKK ( 
OCBE_FFFF OCBF 4656 NIPMIN] DC _XL2‘FFFF* WIG TABLE IDENTIFER { 
LENGTH OF MODULE IS 
OCC1 4658 NIPWORK DS  CL2 
occo 4659 ORG *-2 46600000 
OCCO C3D4C3E4 OCC3 4660 Dc CL4°CHCU" ® MESSAGE ROUTER 46610000 
07 OCC4 4661 NIPACMCU EQU * 46620000 {0 
oCC4 000000 OCL6 4662 oC _XL3‘00" MODULE SSS 46630000 
OCC? 00 OCCT 4663 de ALICO) NUMBER OF TEXT SECTORS 46640000 
OCc8 00 OCC8 4664 pc AL1¢0) RLD DISPLACEMENT 46650000 
OCC9 DSEGESES OCC 4666 DC CL4RLY' ® AUTO VARY TRANSIENT 46670000 409 
OCCD 4667 NIPARLNY EQU * 46680000 7 
- om OCCF 4658 oC KL3*00' MODULE SSS proces 
OCDO 4669 CALICO) NUMBER OF TEXT SECTORS 
ea 6 OCD] 4670 oc ALICO) RLD DISPLACEMENT i _ 
OCD? E2E5C1E3 OCD5 4672 oc cha" SVAT" * ATTACH bot 


‘BOO 2900 TORSMAPD QU TORRY “SYSTEN Rin” WUENE “SPEC PAL “EQuATt 
COT] DON TOBA) “FRU TOBRDYD+2 «= “SYSTER TRANS EEN RUEME CHAINING FIELD 
BOTS 2902 TEORTUR ERU TOBNNTO+2 = “TUR ANDRESS Ot REQUESTOR 


BOTS 2005 THe EMU TORRTHB+? ROORESS TASK IT CONPRE. BLOOr 


were" “ene “OTC OCA! TRE eee ee ee ee ere eT ae 


BCOUNT C 001 0009 3216 218 3324 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


02)SYMBOL = T LEN VF 


RRKAAKRRER RAR 
R 


SATACHER C 001. 
03) SATBATCH C 001 
SATCOMON C_001 
SATCREAT C 001 


FIORE IR IIR OCFA 4697 MSKKKSSN EQU  * 46980000 
NUMBER OF TEXT SECTORS 
OCFE 00 OCFE 4700 oc AL1(0) RLD DISPLACEMENT 47010000 | O4)$ATDATA C 001 
0000 4701 MSCPREND EQU  *+1 ENO OF #MSCPR SATDATAA C 001 
4702 */*-END CHANGE ACTIVITY - *iSCPR SATERROL C 001 
OCFF 4703 MSCADEND EQU * _ 4503 05] SATERROZ C 001 


OADF 4704 END MSCPRENT SATERRO3 C 001 
. SATERRO4 C 001 


( 

( 

( 

( 

( 

( 

( 

{ 

( 

( 
06] SATERROS C 001 
SATERRO6 C 001 
SATERRO? C 001 ¢ 
O7|SATFLAG C O01 { 
SATFLAG] C O01 
SATFRPRM C O01 

OS} SATINCIC C 001 ¢ 
SATINIT C O01 ¢ 
SATJCBa C 001 ¢ 

OO) SATLENG C 001 ¢ 
SATLOAD C O01 ¢ 
SATMSSIZ C 001 ¢ 

IO} SATNCNIQ C 001 ¢ 
SATNONAN C001 ¢ 
SATNRTUB C 001 ¢ 

11) SATNSUAP C 001 6 
SATPRIOR C 001 © 
SATPRIV C 001 

2 SATQKINT C 001 ¢ 
SATREAL C 001 0 
[i 

¢ 

a 

¢ 

¢ 

a 

€ 

( 

€ 

[i 

4 

q 

4 

@ 

Q 

a 

a 

& 

4 

a 

{ 


RAAKKKRAERRARK 
* 


RRKKKKRARRAKRK 


IFER 


SECTORS 
1 


TENT 


SECTORS 
T 


A UT 
By. RTE 


46970000 
46980000 
46990000 
47000000 
47010000 
47020000 
47030000 
47040000 
47050000 


TUBLI“s 


001 0002 3445 


TUBLOP «C001 0020 3 


S| TUBLTOFF C 001 0040 3492 


TUBMBOCF C 001 0010 3464 


(MD C001 0020 3416 
TUBrCN C 001 0080 3395 
eee 0040 3414 


CROSS-REFERENCE 


02)/SYMBOL 1 LEN VALUE DEFN 


03 


SATCREAT C 001 0080 4504 
SATOATA C001 0008 4510 
SATOATAM C001 0018 4533 


SATERRO4 C 001 0004 4546 
S$ATERROS C 001 0005 4547 
SATERROS C 001 0006 4548 
SATERRO? C 001 0007 4549 


O7/SATFLAG C001 000C 4503 


S$ATFLAG] C001 0015 4523 
SATFRPRM C 001 0001 4514 


OS} SATINCJC C 001 0010 4527 


SATINIT C001 OOEC 4515 
$ATJCBa C001 0010 4521 
SATLENG C001 0019 4534 
SATLOAD C001 0008 4502 
SATMSSIZ C 001 000D 4518 


SATPRIOR C 001 O00E 4519 
SATPRIV C001 0004 4512 
SATQKINT C 001 0020 pie 


1 4 


14 


1 
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D)SFNDDADR C 001 0002 0174 
ae oa 0195 


REFERENCES 


4515 4516 4517 
4515 
3972* 4534 


4240* 4518 
4532 


4186* 


3923 3927 3927* 4233 4236 4236" 


4188" 4503 
4195* 4218 4519 


4516 4517 
4520 
4515 4516 


4240 4515 4516 


0176 
019% 0197 0198 0199 


4183 
0181 


16] TUBPMXPP C 001 
TUBPRESV C 001 


18] TUBRCBK C 001 


TUBRDM0D C 001 


TUBREADY C 001 


01 


SFNODOPR C 001 
03] $FNDDREL C 001 
SFNDORLD C 001 
SFNDDSCT C 001 
O4) SFNDDTNS C 001 
SFNODTOT C 001 
SFNODTYP C 001 
05) SFNDLEN C 001 
SFNOMLDR C 001 
SFNOMLDS C 001 
06} SFNOMNQ C 001 
SFNOMPRC C 001 
SFNOMRF1 C 001 
07] SFNOMSBS C 001 
SFNOMSRC C 001 
SFNOMSYR C 001 
OS] SFNOMSYS C 001 
SFNOMULB C 001 
SFNOMUSE C 001 
09] SFNOMUSR C 001 


IUOPLEN & WUT Wo 
TUBPLPI C001 0035 


TUBRCNCL C 001 0083 


TUBROYIP C 001 0001 
TUBRDYPD C 001 0001 


O2]SymBOL = T LEN VALUE 


ILE 
3638 


3198 


3487 
3512 


Bs 868 


PAG 
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% 
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1 


1 


3] TUBRCBK C001 0004 3554 


y TUBROYIP C001 0001 3487 


TUBPIXPP C001 OO2E 3612 3613 16] TUBTCB C 001 0024 


TUBTSRQ C 001 
17|TuBTUB CC 001 
TUBUNITa C 001 


JBRAVER C 001 0001 3597 


TUBRCNCL C_001 0083 3198 
BROMOD C 001 0001 3571 


TUBROYPD C001 0001 3512 
TUBREADY C 001 0008 3484 
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Ol 


CROSS-REFERENCE 


02]S¥MBOL = T LEN VA 


2} SYMBOL T LEN VALUE DEFN REFERENCES 


SFNODOPR C 001 0009 0157 0171 ADCFOUND C 001 Oo 
O3)/SFNOOREL C 001 O00E 0201 0202 Q3)ADCMATCH C 001 0 
SFNODRLD C 001 0008 0184 0189 _ 0194 ADCREAL C001 O 
DOSCT C 001 0007 0181 0184 ADCRESET C 001 0 
O4)SFNODTNS C 001 0009 0189 0190 O4)ADCTASK C 001 0 
SFNOOTOT C001 0010 0202 0208 4175 ADCTBF C001 © 
SFNODTYP C 001 0000 0150 0155 0174 ADCTBN C001 
O5)SFNOLEN C001 0012 O211 4167 4167 4206 4206* OS}ADCVERFY C 001 0 
SFNOMLDR C 001 0040 0160 ADEXIT C001 Of 
SFNOMLDS C 001 0008 0151 ADINQURY C 001 Of 
SFNOMNQ C001 0004 0169 O6}ADITRMOD C O01 Oo 
SFNOMPRC C001 0001 0154 ADRSTOMP C 001 Oo 
SFNOMRF1 C 001 0008 0166 ADSCO960 C 001 =O 
07] SFNOMSBS C 001 0004 0152 O7}ADSTOPN C001 of 
SFNOMSRC C001 0002 0153 ADSTPMOD C 001 0 
FNOMSYR C 001 0080 0209 ADSTPTSK C 001 0 

K O3|ADSYSOMP C 001 0 
SFNOMULB C001 0010 0164 ADTRACE C 001 0 
SFNOMUSE C 001 0020 0162 ADWAITNG C 001 06 
SFNDMUSR C 001 0040 0210 OO] AFINPROG C 001 0 
# C 001 0000 0104 ALLBIT C001 0 
ae C001 0000 0105 ARR C001 oO 
a C 001 0002 0106 IOJASGNERR C001 & 
ACDEND C001 0020 0475 ASGNFAIL C001 OC 
ASGNPAGE C 001 0 

LIJASGNRTRY C 001 0 

ASGNSEQ C 001 o 

ASGNAATR C 001 OC 

T2]ACECHAIN C 001 0001 0223 0224 2}ASSIGN C001 
ACECPERR C 001 0010 0235 AUTOSTAT C 001 OC 
ACECSCL C001 0000 0231 BATCOUNT C 001 & 
ACEIAR C001 0003 0224 a 
a 

[oi 

a 

a 

a 

a 

a 

x 

oa 

a 

x 

a 

i! 

ox 

x 

x 

cc 

ox 

fie 


16] TUBTCB C001 0024 3373 = 3375 
TuBTCBA C001 0011 3325 3331 
TUBTSRQ C€ 001 0008 3399 
17/TUBTUB C001 0034 3391 3393 3949 
TUBUNITA C 001 0005 3214 3215 
TUBUSER C 001 OO2F 3388 3389 
18] TUBUSSV C 001 0040 3462 
TUBUSUP C001 0080 3461 
TUBLSIOD C001 0020 3370 ©3371 4224 
19] TUBUSWA C001 0022 3371 3372 
TUBOILGJ C 001 0080 3589 


TUBORMFL C 001 0020 3591 
G05 


CROSS-REFERENCE 
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Q2}SYMBOL «= T LEN VALUE DEFN = REFERENCES 


ADCFOUND C 001 0002 1033 CHCUMIC 
Q3]ADCMATCH C 001 0010 1030 1037 03) CHCUMLEN 
ADCREAL C001 0040 1028 1037 CecunsDa 
ADCRESET C 001 OOFC 1037 CCUMSUB 
O4ADCTASK C001 0080 1027 1037 04] CHCUNINY 
ADCTBF C001 0004 1032 1037 {CMCUNOIO 


ADCTON «C001 0008 1031 Hed 


f Bre: ay cd at, bee Yr " i 
Sn > Bom - De. > 5 ~ oem OND GN Te * wie S) yeeger i 
Bs 9 eaiaecdenalleailiniaiaalaeiaiataiinitabailalaiaiaiahiaisiaiiabadeiinibiaiaiadainieinleiaiaininisisiaietaisiniabeiaiaiaell pee } Poss 
Sim * ee ‘BO BR | 7 aa er ae : 
Ee “creer ‘ate ‘gees ween “ er nygpime | PCR, 


LOprwRecT = UL QU 9000 
TWALOAD C 001 0080 0833 


TWAPUT C001 0001 3649 
TWAREAL C 001 0040 3654 
TWASYS C001 0002_ 3651 


TWATWA «C001 0000 365. 
TWAWSWA C001 (0004 3652 
TWAXLATE C001 0000 3655, 


TWAXLEN C001 0008 3712 
TWAXNAP §=C 001 0002 3707 3709 
TWAXNAPL C001 0003 3708 


TWAXN CC 001:«0007-- 3711 3712 


7 


18 


1 


G06 
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01 
CROSS-REFERENCE 
O2]SYMBOL =T LEN VALUE DEFN © REFERENCES 


CHCUMIC C001 0027 0523 0524 =4335* 4634 
CNCUMLEN C 001 0028 0536 

CMCUMSDA C001 002A 0539 4340" 
CHCUMSUB C 001 0002 0518 

CMCUNINV C 001 0080 0525 

CMCUNOIO C 001 0040 0527 

CMCUOUT C001 0080 0506 4631 

CMCUROL C001 0020 0510 4631 
CMCUSTAT C 001 0010 0531 

CHCUSWS C001 0008 0514 4631 

CMCUSW1 C001 0025 0504 0523 4630 
CPCUSW2 C001 0028 0524 0536 0537 0539 4632 


CHAS C 001 000A 0453 
CNCLINQ C001 0008 0454 
CNCLSWC C001 0010 0472 


CPatcB «C001 OOFE 0606 0607 
SACPCMCU C001 0025 0503 0504 0540 4335" 4630 4632 4634 
CPCODE C001 0024 0441 0503 
CPFIREL C001 OO7D 0564 0585 
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O2]}SYMBOL TT LEN VALUE DEI 


CPURKL «C001 0028 05: 
O3)CPURKR C001 O07C 05 
CPMSDM C001 0016 04 
CPUSDMIN C C01 0080 05 
OAICSCALL C001 0080 27° 
CXACDUMP C001 0019 06 
CXADINIT C 001 0012 06. 
O5|CXASGB C001 0003 06: 
CXCONMNT C 001 0014 06: 
CXFDAL3 C001 0007 06; 
Q6{CXFDERP C001 0013 06: 
CXIOERP C 001 0004 06! 
CXLOAD ~C 001-0003 06; 
O7ICXMRALD € 001 OOIC 06: 
CXMRE C001 0016 06: 
CXMSPCK2 € 001 0006 06; 
OS|CXNUAB C001 0002 06) 
CXNUBEID C 001 0000 062 
CXNUBLID C001 O00F 06: 
OS|CXNUCLID C 001 0000 06: 


0 


CPINPOTA C 001 0080 0594 0595 0597 3966* 3968* 3970 CANUGETP C001 001D 06 
CPINPOTE C 001 OOF? 0595 0596 3962" 3964 3964" CXMUGLID C 001 0011 063 
CPINPEND C 001 0597 IOJCKNUIOE C001 0017 06: 
CPINPSTD C 001 0596 0598 = 0605 CAMULK C001 0001 061 


COMMEID C 001 


Pagal 


a 


aatdia 


© OUL OG U510 

\DHEOS C 001 O0EO 0375 
WONGRP C001 0020 0369 
17] MONGRPG =C 001 0021 0371 
ie C 001 0025 0370 


C 001 0004 0333 ©0334 0335 
cacrc C 001 0003 0328 0382 
WooPM C001 0002 _(0311_~—0328 


WOOUTL C001 0005 0382 0383 
WOVR C001 0040 0314 
WOPEC C001 0042 0360 


WOPEF C001 0022 0361 
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OPE eee aa ee ee CEN. a eee 


CPWRKL «C001 0028 0547 DTW*O005 A 004 084A 3886 
OB]CPWRKR C001 OO7C 0548 an 03] 0TW#O010 A 003 O84E 3887 
Cpuson C001 0016 0415 0429 7W#0020 A 004 0851 3888 
CPWSDMIN C 001 0080 0592 0594 DTW0030 A 003 0874 3898 
OACSCALL C001 0080 2730 04] DTWA*BYT A 005 0883 3908 
CXACOUMP C001 0019 0640 DTWACHAN A005 0880 3906 
CXADINIT C 001 0012 0633 DTWACM §=A002 0885 3909 
OD|CXASGB C001 0003 0617 O5)DTWAELM A 005 0883 3905 
CXCONMNT C001 0014 0635 DTWASS A005 0882 3907 
CXFDAL3 C001 0007 0622 DIWF =6A002 0887 3910 
O6ICXFOERP C001 0013 0634 106} DIACCNTL C 001 0075 1025 
CXIOERP C 001 0004 0619 DIACEIAR C 001 0064 0980 
CXLOAD §=C 001 0003 0615 DIACEIOB C 001 0068 0985 
ig ology C 001 OIC 0643 O7|DLACENAB C 001 0065 0981 
C001 0016 0637 DIACEPLA C 001 0069 0987 

[ore woe oa DIACETCB C 001 006A 0938 
C 001 0002 0614 O83} DIACEXR1 C 001 0068 0984 

0986 

0982 

0983 

1024 

0779 

1023 

0799 


IDC 001 0008 0623 
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ee ee ee eee eee er ee eee See et 


eleat & ce 0 ox TE on EE oe BO oe oe 


nee ee AUN WINN Wk TOD WIV WD FID WIE 
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Ca 
16]WORSPF C001 0044 0300 Cm OR HO 3883 9 85 88 SOL SH 
WORSTD _C 001 0006 0289 an nRREEEREEEERREE I YEE IRD KOH 3964 3966. 30603910. 3970% 302 
WORSTP C001 0002 0288 HON TH AATF AO 06S ae a0 
17} WORSTR C001 0002 0324 q 5 9 A ABD AAT 4169 4169 4115. 186. 4188-4191 
WoRTC CC 001 _ 0001 0284 —0311 Ah AH A Ot A216 4206 A218 4220 4220 4224 
WORTG C001 0021 0350 ON Pay A aa 9 a0 
18)WORTE C001 0025 0351 Ce eee 
WORUP C001 0080 0403 i At ay ap 
WORUPD C001 OO0E 0401 0407 orn 
19]WOSACQ C001 0099 0339 Wh sc ay 
WOSAVE C001 0004 0322 CC 
WOSLNE C001 0010 0408 0409 Orn 
¢ 
G08 gee ge 
vTITEY TORE OEE) Page 101 WOOT ay Wa 
: CROSS-REFERENCE ee 
In 
O2|)SYMBOL T LEN VALUE DEFN REFERENCES CEPR re exes 
DTWI0005 A004 084A 3686 3602 3803 3897 iio, ¢ 
03] DTWHO010 A 003 O84E 3887 3894 3895 HOH 
7W80020 A 004 0851 3888 3892 MM OO 
DTWH0030 A 003 0874 3898 3807" 3889 3801 3091" a a a 
O4]DTWA*BYT A 005 0883 3908 3894" US CM Sg 
DTWACHAN A 005 0880 3906 3896 3907 a 
OTWACH §=©A002 0885 3909 3884 3888 Ti A 
105] DTWAELM =A 005 0683 3905 3886* 3906 HCL ab 
DTWASS A005 0882 3907 3888 3890* 3908 CO Ot 
DIWF A002 0887 3910 3893 nie oe 
OG|DIACCNTL C 001 0075 1025 1044 CK NT 
DIACEIAR C 001 0064 0980 0981 OC 
DIACEIOB C001 0068 0985 0986 a HH 
07|DIACEMAB C 001 0065 0981 0982 vc ow a 
DIACEPLA C 001 0069 0987 a 
DIACETCE C 001 006A 0988 0993 Ne i a 
OG]DIACEXR1 C 001 0068 0984 0985 U0 arr 
DIACEXR2 C 001 0069 0966 0987 0983 HOw srr 
DIACEI2 C O01 0066 0982 0983 Tae aie 
OODIACE34 C001 0067 0983 0984 THUS to a on} 
DIACTSKA C 001 0074 1024 1025 DC Ws 
DIACVERA C 001 0023 0779 0784 NT Be 
Q]DLACVERD C 001 0073 1023 1024 Ue 
IDLADCNTL C 001 0799-0829 IR 
DIAQEWRK C001 004) 0928 0929 Coney 
DIARR «= C001 «0058 «0950 «60951 US a a 
(DIASRFLG C001 0027 0852 0861 NMC OW) 
DIAGRTQE C O01 OOM 0927 0928 TL) 
‘12jo1asSAva C O01 0009 0703 0704 HO Ca 5 
ese 054 OMI 0942 at a A 
O10 0726 aE 
i 0O@ 092% 80977 IRC OF Ons 
OO3E 0906 0907 CI 
7 OM O16 ONT CT) ~ 
py 0055 0942 «0943 aw 
DICURK! 0053 OO 0941 LT ee 
2 0008 075 86 8706 NOR Ea a a 
5 Onc 0596 Ce.) 
OKT 0004 0697 CC 
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f z coro 0071015 Pa 
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REN O76 1004 TO yay 
— OOS GMS 769 MAO 5) 
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Eopus Cx OT «OM EC Me 
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(5 BPO EG) kD SHED TD ALOR ABODE 
SK BRR a). MG 0S RED OF 


- WO SPATS GALL BITS GP) 
_- WOLL OR ATER ERROR 
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WORPEP C001 0084 0309 
WORPUN C001 0046 0302 
WORREL C001 0028 0295 


WORSCJ C001 0056 0307 
WORSPF C001 0044 0300 
WORSTD C 001 0006 0289 


WORSTP C001 0002 0288 
WORSTR C 001 0002 0324 
WORTC C001 0001 0284 0311 


WORTG C001 0021 0350 
WORT. C001 0025 0351 
WORUP C001 0080 0403 


WORUPD C001 O00E 0401 0407 
WOSACQ C 001 0099 0339 
WOSAVE C001 0004 0322 
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01 
02}SYMBOL =T LEN VALUE DEFN REFERENCES 02]SYMBOL =T LEN VALUE DE 
0 


CROSS-REFERENCE 


DTW90005 A 004 O84A 3886 ©3882-3883 3897 DIHPCSDA C 001 
DTW90010 A 003 O84E 3887 3894 3895 03] DIHPCSTK C 001 
780020 A 004 0851 3888 3892 DIHPSTK C 001 


DTW#0030 A 003 0874 3898 — 3887* 3889 3891 3891* DIIAR = C:001 
O4|DTWA*BYT A 005 0883 3908 3894" O4/DIIARS C 001 
DTWACHAN A 005 0880 3906 3896 +3907 DLILSPCR C 001 
DTWACN §=A002 0885 3909 3884" 3883 DITLSWRK C 001 
O5|DTWAELM A 005 08683 3905 3886* 3906 Q5|D1INDR1 C 001 
DTWASS A005 0882 3907 3888 3890* 3908 DIINL12 C 001 
DIWF A002 0887 3910 89 D1IN C 001 
O6IDIACCNTL C 001 0075 1025 1044 06] 011P10Ba C 001 
DIACEIAR C 001 0064 0980 0981 DIIOLDAR C 001 
DIACEIOB C 001 0068 0965 0986 DILATRA C 001 
O7]DIACEMAB C 001 0065 0961 0982 07/D1LDACE@ C 001 
DIACEPLa C 001 0069 0967 D1LDIOBa C 001 
DIACETCB C 001 006A 0988 0993 DILDLINK C 001 
OS] DIACEXR1 C 001 0068 0904 08) D1LOLOAD C 001 
DIACEXR2 C 001 0069 0986 0988 DILDRTOT C 001 
DILDSN = C 001 

OODILOSS C O01 

DILOSTRT C 001 

DILDTCBa C 001 

JO{DILOGLIN C 001 

DILOGPT C 001 

DILOESIZ C O01 

11}DILOGSS C 001 

DILOGSSH C 001 


ininintniataiat 
SSS8sSsesses 
Bg SG SSS EE 
Rdg 8 35 82 
5 S88 15 2 818 3 


0060 
0061 
0062 


8 
o 
leessicesiscsigegieea2 


TOU IEP ID IO IW FIN FIDE FOO" FHI 451) 410" Adit 
4379 4383* 4386 4390 4417* 4420 4446" 

16]XR2 C 001 0002 0097 —3837* 3839 3839* 3841 3879" 3929* 3933 3933" 3935 3938 3941 3944 
3949 3954 3958* 3960 3962 3964 3964 3966 3968 3970 3970* 3972 
3974* 3976 3978 3984 3984* 3989 4061* 4063 4066 4069 4083 4092 
4125 4129 4149 4152 4165* 4167 4169 4169 4175 4186 4188 4191 
4206 4206 4208 4210 4212 4214 4216 4216 4218 4220 4220 4224 


4238 4278 4325" 4335 4338* 4340 4429 4430 
X00 A002 OBAS 4611 3986 4111 4115 4383 
x000 A003 OBA? 4607 


X001 A003 OBA 4609 
X01 A 002 OBA 4613 
x1 A001 OBA9 4615 41954257 4261 4370 


X100 A002 OBAA 4617 
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CROSS-REFERENCE 


02]SYMBOL T LEN VALUE DEF 


O2]SYMBOL T LEN VALUE DEFN REFERENCES 


DIRNQSAV C 001 0063 
03/01RQ C001 0058 
DIRTTABL C 001 0040 
DISAVEIN C 001 0042 
O4/DISECA C001 0016 
DISETSWA C001 0068 
DistFa C001 O00E 
O5j01stKa C001 0011 
DISTKPTR C 001 001C 
DISTKSAV C 001 0037 
06] D1SVCIM@ C 001 0012 
DISWACEA C 001 0035 
DISWIOBa C 001 0034 
OZ} DISWPMIN C 001 0013 
DISWICBI C001 0047 
DISWICBO C 601 0018 
08) DISYSFLG C 001 0026 
DITCBHOR C 001 0028 
DITIACEA C 001 0038 
OO|DITIMAB C 001 0028 
DITPMALa C 001 0017 
DITPTOXH C 001 0029 
OJDITPTOXL C 001 002A 
DITRACE@ C 001 0039 


DIHPCSDA C 001 0060 09 
03]D1HPCSTK C 001 0061 0973 0974 
DIHPSTK C 001 0062 0974 0976 
DIIAR = C001 «0059 0951 = 0952 
O4IDITARS C001 0043 0915 0916 
DIILSPCR C 001 OO5F 0961 0962 


DILATRA C001 0014 0757 = 0758 
DILDACEA C 001 0046 0918 0919 
OILDIOBa C 001 0034 0681 

DILDLINK C 001 OO1F 0774 = 0775 
DILDLOAD C 001 0022 0777 ©0779 
DILORTOT C 001 0021 0776 0777 
DILDSN 001 OOLE 077 0774 
DILOSS C001 001D 0772 ©0773 


07 


097 
095 
090 
091 
075 
099 
071 
075 
076 
089 
075! 
088: 
087: 
075 
O91 
076 
082! 
086: 
089 
0861 
076 
0862 
086: 
0897 
DITRIOBa C 001 003A 089% 
J1{DITRSAVE C 001 0030 087: 
DITWIOBa C 001 0034 0675 
DITWICBa C 001 092 
2} D1UNUSOS C 001 0702 
DIUNUSSE C 001 0960 
DivRcs = C 001 1008 
WOW =«C (001 1004 
DIWSCAF C 001 0706 
DINABUI C 001 0704 
1ADINTBL CC 001 0875 
0948 

0949 

0917 

1060 

1061 

1055 

1057 

1068 

1052 

1051 

1063 

1059 

108 

10@ 

108 

198 

1056 


ME 102 


END OF CHANGE FLAG RE 


OAJERBAOPO C 001 
ERBAOP] C 001 
ERBAOP2 C 001 

OS} ERBAOP3 C 001 
ERBBUSY C 001 
ERBCDONE C 001 

06] ERBCELOG C 001 
ERBDACE C 001 


O4/DISECA C001 0016 0759 0760 
DISETSWa C001 0068 0993 1001 
DISMa C001 OOOE 0712 0720 
OISTKA C001 O01] 0754 0755 
DISTKPTR C 001 O01C 0769 0772 
DISTKSAV C 001 0037 0894 0895 
DISVCIMA C001 0012 0755 0756 
DISWACEA C 001 0035 0882 0883 
DISWIOBa C 001 0034 0878 

O7{DISWPMIN C 001 0013 0756 0757 
DISWICBI C 001 0047 0919 0920 
DISWICBO C 001 0018 0761 0766 
SO] DISYSFLG C 001 0026 0829 0852 
DITCBHOR C 001 0028 0868 0869 
DITIACE@ C 001 0038 0899 0904 
DITIFAB C001 0028 0861 0862 
DITWALa C 001 0017 0760 0761 


OS} ERBDERA C 001 
ERBDFLG C 001 
ERBDISK C 001 

OS) ERBDISKT C 001 
ERBDLEN C 001 
ERBDLNI C 001 

IOJERBDMIC C 001 
ERBOONE C 001 


ERBGAIJI C 001 


8 
5 
2 
a 


DIXNTBL C001 0052 0876 4 ERBRIRCY C 001 
1X1 =6 C001 =—O056 0949 ERBFLCA C 001 
DINk2 «= C O01 (0057 0950 EReMIC C 001 
O1XTCBa «C001 0065 7 O91S ERSMISG C 001 
EQRCTV C001 0080 ERBNMLOG C 001 
ENOL «C001 000 ERBMARR = 001 
TOEQTPOLL C ool 0025 TO] ERSRURSP C 001 
cOtss C001 COZ 

0003 


d 
: 
WES EES BSR ES GE SSIS 


17 
18 
1 
610 
01 
02}syrBOoL = T LEN VAL 
DIRNQSAV C 001 0063 0976 0980 ECMTIMER C 001 
03/D1RQ C001 0058 0953 0954 O3/ECMTRM = C 001 
DIRTTABL C001 0040 0908 0913 EcMTTC C001 
DISAVEIN C 001 0042 0914 ©0915 EIGHT CC 001 


SSSSSSRSRSBERSESIBSSISSSSSSisssisssisssissgisssisssisesigegises 


16 


17 


18 
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CROSS-REFERENCE 


01 
SYMBOL T LEN VALUE DEFN = REFERENCES 


02 


ECNTIMER C 001 0024 1054 ERBTRMID C O01 
O3JECMTRM C001 0023 1053 O3}ERRCNCL C 001 
ECMTTC C001 0020 1050 4021 ERRCNSL_C 001 
EIGHT C001 0008 0117 ERROFF C OO1 
ERBADPO C001 0008 1143 OAJERRRESM C 001 
ERBAOP1 C001 0004 1144 EXAN C001 
ERBAOP2 C 001 0002 1145 FALSE C O01 
OS|FDFAIL C001 

ERBBUSY C001 0080 1084 FIFO C001 
ERBCOONE C001 0040 1085 FIVE C O01 
ERBCELOG C 001 0001 1127 06] FND C 001 
ERBDACE C001 000B 1150 = 1151 FOUR _C 001 
ERBOCHN C O01 0001 1073 1075 FLADATTR C 001 
O7JERBOCPA C001 0006 1130 1131 1135 O7|FIADATT1 C 001 
ERBDCTL C001 0004 1083 1103 FLADATT2 C 001 
ERBDOVI C001 0002 1075 1081 FIADBLKN C 001 
GIERBDERA C001 0006 1131 08] FIADCONT C 001 
ERBOFLG C001 0005 1103 1130 FLADDATE C 001 
ERBOISK C001 OORO 1078 FIADDFLG C 001 
ERBDISKT C 001 00D0 1076 QS] FIADEDFQ C 001 
ERBDLEN C001 O00C 1151 FIADENDA C 001 
ERBOUN] C001 OO0A 1148 FIADFCHN C 001 
ERBOMIC C001 0008 1135 1137 10)F LADHIGH C 001 
FLADHOKY C 001 

FIAOKBKT C 001 

11/F LADKEYL C 001 

FIADKEYO C 001 

FIADLABL C 001 

2|FADLBOW C 001 


FIADLBUS C 001 


O2|SyMBOL = T LEN VALUE 
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01 
CROSS-REFERENCE 

ERBTRMID C 001 On80 1104 FIAMBLRN C 001 0080" 1 
OBJERRCNCL C 001 0017 0466 03)/FIAMCKPT C 001 0040 1 
FIANCONS C001 0040 1 
ERROFF C O01 0014 0463 FIAMWDIRC C 001 0020 1 
ERRRESM C001 0018 0467 OM FIAMDLTC C 001 0020 1 
EXAM C001 0004 0839 FIAMONFG C 001 0004 1 
FALSE C001 0090 0121 FIADPCK C 001 0010 1 
O5|/FIANGASK C 001 0008 1 
C001 0000 1384 1386 FLAMHKAS C001 0010 1 
C001 0005 0114 FIAMIFIL C001 0010 1 
NO C001 O00E 0457 O6]FLAMINOX C 001 0080 1 
FOUR _C 001 0004 0113 FIAMINFR C001 0020 1: 
FIADATTR C 001 0022 1278 ©1293 FIAUOBR C001 0002 1 
FIADATT1 C 001 020 1273 1276 O7|FIAMKBPR C 001 0040 1; 
FIADATT2 C 001 0023 1293 1302 FIAMLBFL C 001 0001 1: 
FIADBLKN C 001 0012 1219 FIAMLTST C 001 O05C 1 
SIFIADCONT C 001 0021 1276 ©1278 OS] FIAMPRGE C001 0040 1) 
FIADOATE C 001 0008 1168 1170 1172 FIAMNEW C001 0020 1: 
FIADOFLG C 001 0000 1161 1164 FIAMNREC C 001 0008 17 
FIADEDFQ C 001 0027 1303 1305 1317 1329 1343 1372 OOTFIANDLIV C001 0001 1: 
FIADENDA C 001 0018 1235 1237 FLANOTAD C 001 0080 1: 
FIADFCHN C001 OOF 1271 1273 1348 FIANPERM C 001 0008 11 
JO}FIAMROFL C 001 0010 11 
FIMRFIL C001 0002 17 
FIADKBKT C 001 0038 1338 1340 FIANSCFL C001 00801: 
LI[FIADKEYL C 001 0028 1317 = 1319 LIJFIANSCLB C 001 0080 1: 
FIADKEYO C 001 002A 1319 = 1321 FIASCPD C 001 0080 17 
FIADLABL C O01 00061164 ©1168 FIMSCRT C001 0001 11 
FIADLBOW C001 OO1l 1222 1224 2\FLAMSORT C001 0080 11 
FIADLBUS C G01 0012 1224 — 4257% FLAPSPAL C 001 0004 12 
FIADLSTK C001 OO2E 1371 1323 FIASPA2 C 001 0002 12 
JFIALLSTP C 001 0035 1325 1327 FLANSYSF C 001 0001 11 
FIADLSTR C OO 0015 122% 1228 1230 1233 FLATTEN C 001 0004 11 
FIA C O01 00275 1302 1303 FIAMALL C001 0070 12 
14{FIADPCRQ C 001 003% 1340 = 1341 L4FINWIST C 001 0010 12 
FIADRECL C 001 OOOF 1214 1216 1219 1220 1222 FLAW2ND C001 0020. 12 
FIADRECN C001 OO12 1720 1226 FIAW3RD C001 0030 12 
FLAORESS C 001 OOS 1341 1346 SIFLAWATH C 001 0040 12 
FIAORFED C O01 0027 1305 FLAENFG C001 0008 11 
FIAORFST C001 0015 1730 FINXTMD C 001 0080 12 
FIADSOIR C O01 0008 1170 GFIFLAG $=: O01 OOIE 13 
FIAOSFLG C 001 OOUD 1182 1714 FIRESTRT C001 OOFF 13 
FIAOSEN C O01 0015 12728 FISSEMD C001 0077 13 
FUOSTOA C O01 0018 12733 1235 TFisstat C001 0071 13 
WOSTIKN C001 OOH 133 13 GETPANYP C 001 0020 63 
FLMOTYPE COO OOO 172 1187 SFIPHSIC C O01 O10 8 
AWTOC COOL OOM 1737) «(1262 1271 1366 AGETPMOIC C 001 0008 OB 
HOLD = O01 ~OOL8 OF 
HPASGERR C 001 0080 69 
IQHPCSSWE «C001 GOID 09 
FRAP C OOl OOO 09 
TED C O01 00D 09 
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O2/SYMBOL T LEN VALUE DEFN REFERENCES 02) SYMBOL = T LEN VALUE 
FIAMBLRN C 001 0080 1217 HPI2SVCA C 001 0020 
03]/FIAMCKPT C 001 0040 1297 O3/HPNOSTRT C 001 0002 
FIAMCONS C 001 0040 1174 HPNOTBSY C 001 0008 
FIADIRC C001 0020 1175 HPSTART € 001 0040 
O4/FIAMDLTC C 001 0020 1298 O4] HPUAITNG C 001 0004 
FIAMDNFG C 001 0004 1287 TAR C 001 0010 
FIAMDPCK C 001 0010 1190 TARX = C.-001 «0008 
O5|FIAMGASK C 001 0008 1300 05] ICADW2KP C 001 0002 
FIAMHKAS C 001 0010 1283 ICADCMTR C 001 0005 
FIAMIFIL C 001 0010 1299 ICADICDE C 001 002F 
O6]FLAMINDX C 001 0080 1173 06] ICADICSV C 001 002A 
FIAMINFR C 001 0020 1281 ICADLSUB C 001 0001 
FIAMJOBR C 001 0002 1179 ICADRESV C 001 003F 
O7|FLANKBPR C 001 0040 1280 7] ICADSIFG C 001 0030 
FIAMLBFL C 001 0001 1212 ICADSISC C 001 0032 
FIMLTST C 001 O05C 1162 ICADSIST C 001 0034 
OB] FIAMPRGE C 001 0040 1189 O8} ICADSSQS C 001 0004 
FIANEW C001 0020 1205 ICADSYS C001 0000 
FIAMNREC C 001 0008” 1285 TCADTRA@ C 001 OO0E 
OO} FLANDLIV C 001 0001 1290 OOF ICADTRAT C 001 O01E 
FINDTAD C 001 0080 1279 ICADTRST C 001 


FLAMPERM C 001 0008 1177 TCADTRSV C 001 
IOJFAMRDFL C 001 0010 1176 10] ICADXFLE C 001 
FIAPRFIL C 001 0002 1289 ICADXTCB C 001 
TCAD0001 C 001 


FLAMSCFL C 001 0080 1296 


TH{FLANSCLB C 001 0080 1202 11) ICAD3270 C 001 
FIASCO C 001 0080 1200 ICAMLENG C 001 
FIAMSCRT C 001 0001 1180 ICALOTR C 001 
2{FIAMSORT C 001 0080 1188 Z| 1CAMLITR C 001 
FIAGPAL 1206 ICAPML2TR C 001 

Lor ICAAL3TR C 001 

A FLAGYSE C001 0001 1165 | 13) ICAML4TR C 001 
FIATENP C001 0004 1178 ICANSDAT C 001 
TCAPWBSY C 001 

14 ICAROMTA C 001 

ICAPRMTR C 001 

TCARS270 C 001 

 LDELETE C 001 

FIVE C001 C008 1192 TL2ASGB C 001 


iy 
aT 
CEE | 
Re RE 
g 
ee 
aaa 


, 


ETP C 
IGETPISIC C 
c 
c 
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HPIZSVCA C 001 0020 0965 JCBDERSV C 001 
O3/HPNOSTRT C 001 0002 0969 03} JCBDEXTa C 001 
HPNOTBSY C 001 0008 0967 0971 JCBDF INA C 001 
HPSTART O01 0040 0964 JCBOFMNO C 001 

4] HPWAITNG C 001 0004 0968 0971 O4| JCBDFSBF C 001 
TAR C 001 0010 0100 JCBOFSBL C001 
TARX C001 0008 0138 4419 4421 JCBDINIT C 001 
05) ICAD*2KP C 001 0002 1495 1497 05] JCBDINLK C 001 
ICADCNTR C 001 0005 1499 1509 JCBDINT2 C 001 
ICADICDE C001 OO2F 1544 1546 JCBDJBID C 001 

06] ICADICSV C 001 002A 1530 1532 06} JCBDJBRG C 001 
ICADLSUB C001 0001 1493 1495 JCBDJOBN C001 
TCADRESV C 001 O03F 1554 1556 JCBDJQST C 001 
7] ICADSIFG C 001 0030 1546 1550 07] JCBDLANG C 001 
ICADSISC C 001 0032 1550 1552 JCBDLCLA C 001 
ICADSIST C O01 0034 1552 1554 JCBDLNPG C 001 

8} ICADSSQS C 001 0004 1497 1499 03} JCBOLPI# C 001 
ICADSYS C001 0000 1491 1493 JCBOMENF C001 
TCADTRAR C001 000E 1516 1518 JCBOMENL C 001 
ICADTRAT C 001 OO1E 1528 1530 09] JCBOMEN C 001 
ICADTRST C 001 QOOF 1518 1528 JCBONFTF_C_001 
TCADTRSV C O01 0008 1509 1511 JCBDPDAT C 001 
ICADXFLG C 001 002) 1534 1544 10] JCBOPGIL C 001 
ICADXTCB C 001 002C 1532 1534 JCBOPGZL_C_001 

11 


ICAD0001 C 001 O00C 1514 6 
TCAD3270 C 001 OOOA 1511 = 1514 
ICAPLLENG C 001 0040 1556 


ICALOTR C 001 0080 1500 


. PERFORM ERD MIDE ED 
SEXT REPLY (ID TTD (GE AT SUBCDNSOLE 
ADDRESS DF SUNCOMSBLE WATRIX 


02] SYMBOL TT LEN VALUE 


O00F 
0031 
0050 
004C 
0014 
0012 
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CROSS-REFERENCE 


{SYMBOL T LEN VALUE DEFN REFERENCES 
JCBDERSV C 001 OOOF 1771 = 1772 
JCBDEXTA C 001 0031 1684 1686 
JCBOF INA C 001 0050 1708 1710 


JCBDFMND C 001 004C 1702 1704 

H ICBOFSBF C 001 0014 1654 1656 

JCBOFSBL C001 0012 1652 1654 
JCBDINIT C 001 0000 1567 1579 4208* 
SCBDINLK C 001 0005 1623 1633 
JCBDINT2 C 001 0001 1579 1592 
JCBDJBID C 001 0047 1698 1700 4224" 
JCBOJBRG C 001 0057 1718 1720 1721 
JCBDJOBN C 001 0061 1724 1726 4214* 4216 


BOJQST C 001 OO5A 1721 = 1722 
JCBOLANG C 001 0062 1727 = 1737 
JCBOLCLA C 001 OO6F 1752 


tw 

SCBOLNPG C 001 0048 1700 1702 
OH ICBOLPI# C 001 0006 1766 = 1771 
CBO C001 O05E 1720 1724 
JCBOPENL C 001 0045 1696 1698 
JCBOMENU C 001 0043 1695 1696 
SCBONFTF C001 O04E 1706 1708 
JCBOPDAT C 001 O00C 1645 1647 
JCBOPGIL C 001 0038 1690 1691 
JCBOPG2L C001 0030 1691 1692 
SCBOPLST C 00: 0005 1764 1766 


0 O2)SY"BOL = T LEN VALUE 


0 


1688 
1666 4169* 4238 


BOS) 3626 THBPSBC EQ | TUBPLEN1 ‘SURCONSELE LEGTOAL ID 


rete “exc TREE Te oot 0 Teen. CORTEETTIOD CTR eT or oTetp cmerreater cer. 
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CROSS~REFERENCE 


SYMBOL T LEN VALUE DEFN REFERENCES 


02 


SCBMBTCH C001 0010 1607 JCBMSPRT C 007 
03} JCBMDEAD C 001 0008 1597 03} JCBMSRAL C 001 
JCBMOKAL C 001 0020 1626 JCBMSYLB C 001 
JCBMDOMD C 001 0002-1599 JCBHSYSN C 001 
04] JCBMDPRD C 001 0004 1609 04] JCBNTMLK C 001 
JCBMOSRC C001 0001 1621 JCBMUPS1 C 001 

BME [Ba C O01 0001 1745 JCBMUPS2 C 001 

05) JCBMEOMP C 001 0004 1619 4212 05] JCBMUPS3 C 001 
JCBMEVPR C001 0004 1743 JCBMUPS4 C 001 
JCBMEXTD C001 0001 1674 JCBMUPS5 C001 
JSCBMFLIS C001 0040 1739 06] JCBMUPSS C 001 
JCBMFLUC C001 0010 1596 JCBMUPS? C 001 
ICBHUPSS C 001 

07] JCBAUSLB C 001 

JCBAWOKT C001 

SCBMING C001 0002” 1610 JCBMMDSK C001 

GI ICBMINTK C 001 0010 1741 08} JCBMWINT C 001 
JCBNIPRC C001 0008 1586 JCBMMLIN C 001 
JCBALIST C001 0020 1730 SCRMEX C001 
JCBPLOPR C 001 0010 1584 09] JCBMWPNT C 001 
JCEPPDPR C 001 0020 1583 JCBMUTCD C 001 
SCRPNEXT C 001-0010 1731 JCBMKREF C 001 
JCBANRT C001 0008 1574 10) JCBNYPDD C 001 
JCOMNONI C001 0001 1611 4210 JCBMILDJ C 001 


JCBMNOSC C001 0004 1575 


Ba 
ul 
Bo) 
ad 
47 
et) 
a 


02) SYMBOL = T LEN VALUE 
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01 
CROSS-REFERENCE 
O2]}SYMBOL T LEN VALUE DEFN REFERENCES 


SCBMSPRT C 001 0020 1616 
JCBMSRAL C 001 0008 1742 
JCBMSYLB C001 0080 1728 
SCBMSYSN C 001 0040 1625 
JCBMTMLK C 001 0080 1738 
JCBMUPS] C001 0080 1634 
JCBMUPS2 C 001 0040 1635 
JCBMUPS3 C 001 0020 1636 
JCBMUPS4 C001 0010 1637 
SCBMUPSS C 001 0008 1638 
JCBMUPSS C 001 0004 1639 
JCBMUPS7 C001 0002 1640 
SCBMUPSS C 001 0001 1641 
JCBMUSLB C 001 0004 1587 
JCBMMDKT C001 0020 1669 
JCBDSK C 001 0010 1670 
3} JCBMWINT C 001 0008 1671 
JCBPULIN C001 0040 1668 
BeAYIX C 001 0004 1672 
SCBMUPNT C 001 0080 1667 


02]/SYMBOL = T LEN VALUE DEFN 


03 


05 


JCOMILDJ C001 0001 1577 
SCOMILDS C 001 0002 1576 
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CROSS-REFERENCE 


O2/SYMBOL T LEN VALUE DEFN REFERENCES O2]SYMBOL = T LEN VALUE 
MSCAO110 A 001 0886 3950 3047 NIPACUO] A 001 0993 

03) ISCa0130 A 001 O8F9 3993 3982 O3)NIPACUO2 A 001 095 
MSC@0150 A 001 O8F9 3991 3988 NIPACUO4 A 003 0A21 
MSCHO160 A 001 0920 4046 NIPATACH A 001 0846 
OAJMSCAO170 A 00l OBFE 4010 4045 04) NIPAVMSA A 001 OBAC 
(15C80190 A 001 0920 4040 4020 NIPAVMSG A 008 0BB3 
SCa0210 A O01 0919 4031 4023 NIPAVPRA A 001 0884 
05]"Sca0220 A001 0910 4036 4030 OS|NIPAVPRM A 008 OBBB 
(5080230 A 001 0924 4042 4039 ; NIPFNDAC A001 0878 
mSCAa0240 A001 Ov3A 4054 4050 NIPFND2] A001 088A 
06]5CA0260 A 001 093E 4060 4053 OS|NIPMINI A 002 OCBF 
(5C90280 A001 0948 4068 4065 NIPPATCH A 001 _OBBC 
MSC#0300 A 001 0961 4091 4085 NIPSPIPL A 001 OCES 
O7]M5C@0320 A 001 0968 4105 4094 O7|NIPSSATC A 001 OCD6 
M5CH0340 A001 0987 qml24 4113 NIPSSBLD A 001 OCOF 
MSCAO360 A 001 OA54 “4283 4128 NIPSSHFT A 001 OCFI 
09] MSC#0380 A001 OAS! 4277 4131 OS|NIPSSPF A001 0A54 
M5C@0400 A 001 ome 4164 4151 NIPSTART C 001 0208 
MSCa0420 A 001 4163 «4154 NIPSTRTE C 001 02DF 
91SC@0440 A 001 ed 4268 = 4178 OO|NIPSWICH A 001 OBAB 
MSCa0450 A001 0906 4193 NIPWORK A 002 OCC1 
MSCA0460 A O01 OSCE 4190 4197 NOBIT C001 0000 
JO\MSCA0470 A 001 O9E0 4198 4192 1Q}NOOP, =—s«C. 001-0080 
Fcants) A o2t OAS8 4255 4248 NPRV C001 0001 

426: 


fSCA0600 A001 OADC 4401 «© 4364 NUACPTCB C 001 
WISCA0S1O A001 OACG 4381 4378 ‘13)NUACSETC C 001 
15020630 A001 OAB6 4373 4380 NUACXIOB C 001 


BCa0650 A001 OADC 4399 4385 WOLTQE C 001 


DEFN 


4132 
4179 
4241 
4488 
4628 
4629 
4638 
4639 
4575 
4587 
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CROSS-REFERENCE 


NIPACUO! A 001 0993 4132 


O3]NIPACUO2 A 001 O9C5 4179 03] NUATRBUF C 001 


NIPACUO4 A 003 OA21 4241 4239 NuaTWAQ C 001 
NIPATACH A 001 0846 4488 = 3927 NUaTWAXL C 001 
O4)NIPAVYSA A001 OBAC 4628 4335" 4630 4632 4634 O04] NUATWAXR C 001 
NIPAVMSG A 008 0BB3 4629 —-4340 NUaXIENT C 001 


NIPAVPRA A 001 0BB4 4638 4640 NUFIXNUC C 001 
QDINIPAVPRM A 008 OBBB 4639 4323 O5)NUL*LBF1 C 001 
NIPFNOAC A001 0878 4575 4155" 4167 NULACE C001 
NIPFNO21 A 001 OB8A 4587 NULACEQH C 001 
O6|NIPMINT A 002 OCBF 4656 4214 06] NULADWRK C 001 
NIPPATCH A 001 OBBC 4650 NULCPTCB C 001 
NIPSPIPL A 001 OCE8 4685 4088 NULENIOB C 001 
O7|NIPSSATC A 001 OCD6 4673 3995 4242 O7]NULIPLAF C 001 
NIPSSBLD A001 OCOF 4679 NULISSQS C 001 
NIPSSHFI A001 OCF1 4691 4107 NULRDIOB C 001 
OSINIPSSPF A001 0A54 4282 OS|NULSCA C001 
NIPSTART C 001 0208 4644 = 3968-4645 NULTQE C 001 
NIPSTRTE C 001 O20F 4645 NULTRBUF C 001 
OS|NIPSWTCH A001 OBAB 4619 4041" 4044 OS/NULTWAQ C 001 
NIPWORK A002 OCC] 4658 — 3874* 3875* 3877* 3879 4244" 4246 NULTWAX C 001 
NOBIT = C 001 0000 0125 NULXIENT C 001 
QO} NOOP C 001 0080 0124 1OJNUBITS C 001 
NPRV C 001 0001 0142 NUVARNUC C001 
NUS*LBF1 C 001 O2EO 1885 1888 4257* OFF C 001 
TI} NURACEQH C 001 0100 1859 = 1862 3929 4051 LIOFFMENU C 001 
NUAADURK C001 0700 1932 OFFOCL C 001 
MUBATQE C001 O3A8 1914 1916 ONE C 001 
2iNUBBADZK C 001 0700 1935 12}0P1 C 001 
NUACPT@H C 001 0002 1868 OPp2 C 001 
NUSCPTCB C 001 0200 1867 1871 3843* 4076 4109 4115* 4368 4390 4446 PLIFO = C 001 
WMUACSETC C 001 0380 1905 1907 ; PPSCPBIT C 001 
@CXI0B C 001 O1EO 1865 1867 PPSCRTI C 001 


01 
O2|SYMBOL oT LEN VALUE DEFN © REFERENCES 02] SYMBOL T LEN VALUE 
NUBTRACE C 001 0300 


0700 
02A3 
0260 


4421 
442) 


Ws BT ee ee eo Tr BL) oom oy 
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CROSS-REFERENCE 
NUSTRACE C 001 0300 1888 1891 PPSUSR2L C 001 0013 
(Q3]NUATRBUF C 001 0700 1930 1932 1935 1937 03] PPSUSR2M C 001 008 
NuaTWAQ C001 0203 1879 1882 PPSVARO! C001 002F 
WaTWAxl C001 02801871 ~=«1873 1879 PPSVARO2 C 001 0037 
OA NUATWAXR C 001 O2A2 1873 3885 04] PPSVARO3 C 001 003F 
NUAXIENT C001 0800 1926 1930 1941 PPSVARO4 C001 0047 
NUFIXNUC C001 0000 1854" 1856 PPSVAROS C 001 004F 
O5}NUL*LBF1 C001 0020 1886 1888 05] PPSVAROS C 001 0057 
NULACE C001 0010 1889 1891 1893 1895 1997 1899 1901 1903 1905 1907 1920 1922 PPSVARO7 C001 _005F 
NULACEQH C 001 00CO 1860 «1862 PPSVAROS C 001 0067 
OG|NULADWRK C001 O00CO 1933 1935 06] PPSVAROS C 001 006F 
NULCPTCB C 001 0080 1869 1871 PPSVARIO C001 0077 
NULENTOB C 001 0020° 1863 1865 1867 1918 PPSVARI1 C 001 OO7F 
O7|NULIPLAF C 001 0310 1937 O7|PREEMPT C001 0080 
NULMSSQS C 001 1000 1944 1946 PRIOR _C_001 0080 
WULROIOB C 001 0036 1883 1885 PRIORF C001 0080 
OB|NULSCA C001 0100 1857 1859 OS] PRIORL C001 0090 
MULTQE C001 0008 1908 1910 1912 1914 1916 PRTY _C_001 0003 
NULTRBUF C001 0100 1929 1930 PRV C 001 0000 
OO|NULTWAQ C 001 0005 1880 1882 OS|PSIPLF1 C001 0004 
NULTWAX C 001 0023 1872 1873 1879 PSIPLI2_C 001 0002 
WOLXIENT C001 080019271941 PSR C001 0004 
JO|NUMBITS C001 O00F 0126 1O}QCPWAIT C 001 0008 
NUVARNUC C001 1000 1941 1943 QFRMEXM C001 0004 
OFF C O01 0004 0446 QHOCILK C001 004E 
TIJOFFMENU C001 0005 0447 TI}QHOCNLG «C001 004C 
OFFOCL C001 0024 0479 QHOCOIN] C001 0008 
ONE C001 0001 0110 QHDcoM = 001 005C 
OP1 C001 0002 0140 4421 QHOCOM2 C001 O005E 
OP2 C001 0004 0139 4421 QHOCOM3 C 001 0060 
PLIFO C001 0040 1070 Quocone C001 0062 
HPPSCPBIT C 001 0080 1959 4429 13} GHOCPOCL C001 0054 
PPSCRTL C001 0019 1978 
PPSCRT2 C O01 0018 1979 
14/PPSEOFSG C 001 0040 1960 
PPSFLAGI C 001 0001 1958 1963 4429" 


Se +" TLE RRL, SBD, TS COSTED 4S PART OF TPL, BUT ROE 
BOO ** A SEPARATE TK AAD WOT UARER THE COMIN PRICESSOR AE IPL DOCS. 
ED *y 
SSI * Ph STEN CONIA ION BRED FLAS “SOMMBLD” IW BYE “SORES” 1S +7 


OES cee SCOT TAAD OT commerce crn eee cemeteries ce) oer en oe wees we 


WO9/11/81 12/08/81 02:16 


PAGE 114 VO9/11/81 12/08/81 02:16 


CROSS-REFERENCE 


SYMBOL T LEN VALUE DEFN REFERENCES 


PPSUSR2L C 001 0013 1972 1974 
PPSUSR2M C 001 OB 1968 1969 
PPSVARO1 C 001 OO2F 1987 1989 
PPSVARO2 C 001 0037 1989 1991 
4{PPSVARO3 C 001 O03F 1991 1993 
PPSVARO4 C 001 0047 1993 1995 
PPSVAROS C 001 O04F 1995 1997 
PPSVAROG C 001 0057 1997 1999 
PPSVARO7 C 001 O05F 1999 2001 
PPSVAROS C 001 0067 2001 2003 
PPSVAROD C 001 O06F 2003 2005 
PPSVARIO C 001 0077 2005 2007 


PPSVAR11 C 001 OO7F 2007 
PREEMPT C001 0080 1069 4451 
PRIOR _C 001 0080 138113851386 


PRIORF C001 0080 1386 
PRIORL C001 0090 1385 
PRIY C 001 0003 0445 
PRV C001 0000 0141 4419 4421 
PSIPLF1 C001 0004 0744 
PSIPLI1 C€ 001 0002 0745 
PSR C 001 0004 0098 
QCPWAIT C001 0008 2724 
QFRMEXM C 001 0004 2721 
QHOCILK C001 O04E 1434 
QHOCNLG C001 004C 1433 
QHOCOr! C001 0008 1398 


@Ocom = 001 O05C 1441 
@wOCOr2 C001 OO5E 1442 
GOCOG C001 0060 1443 


@mcom «C001 0062 1444 
@WCPOCL C 001 0054 1437 
QHOCSB C001 0072 1452 
QHOCSCQ C001 0058 1439 
GOCKNT C001 0018 1406 
BOOILK C001 0064 1445 
QHDETB. «C001 00RD 1471 
C 001 0074 1453 


05) 


07 


OU} 


uv 


14 


F21 


01 


O2|SYmBOL = T LEN VALUE 


QHOIOA C001 
O3}QHOKBTR C 001 
QHOLOAD C 001 
QHOLOC =C 001 
O4IQHOMTI CC 001 
QHONSACE C 001 
QHOMULL” C001 
O5|QHOPDLH C 001 
QHOPILK C 001 
GHOPRIQ C 001 
O6/QHOPT C001 
QHOPTI. C001 
QHOPT2 C 001 
O7/QHOPT3 = C 001 
QHOPT4 C001 
QHOPTS C O01 
OB|QHOPTS C 001 
QHOPT? _C 001 
QHOPTS” C 001 
O9|QHDQUAIL C 001 
QHORFILK C 001 
QHORPT —C O01 
1O\QHDSCT C 001 
QHDSEC C001 
QHOSILK C O01 


0038 
OOlE 
001C 
007A 


RS SSR S BSS SS SSIS 8 SE SRS ERS ESE 
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CROSS-REFERENCE 


01 
SYMBOL T LEN VALUE DEFN REFERENCES 


0 O2)SYMBOL = T LEN VALUE 
QHOIOA ” C001 0038 1422 QNREF C001 0002 
O3/QHOKBTR C001 OO1E 1409 O3/QREFRESH C 001 0001 
QHOLOAD C001 O01C 1408 QScCT _C 001 O10 
GHOLOC C001 OO7A 1456 QSPEC «CC (001-0009 
O4)QHONTI $C 001 OOAB 1475 O4QSYSREQ C001 0004 
QHONSACE C 001 00A2 1472 QTOEXM C001 0008 
QHONULT™ C001 0000 1377 «3954 QUEUE C001 0000 
Q5/QHOPOLH C001 OOAA 1476 OS]QWAIT = C -001 0001 
QHOPILK C001 006C 1449 QXLOFF C001 0004 
GHOPRIQ C001 0044 1429 QxR2-~~-€ 001-0020 
QHOPT C001 0004 1396 06] xu C 001 0040 
QHOPT1 C001 0020 1410 Q@ C001 0000 
QHOPT2 ~C O01 0022 (1411 Qi C 001 0001 
O7/QHOPT3 C001 0024 1412 O7|RAFA = CC. 001-«O01A 
QHDPT4 C001 0026 1413 RALLOC C001 000C 
QHOPTS C001 0028 1414 RCHKPT C001 0030 
SIQHOPT6 C001 002A 1415 OS|RCLOSE C001 0003 
QHOPT? C001 002 1416 RCM «C001 _-002C 
QHOPT8 =~ 001 =O02E 1417 RCPERR C 001 OO1D 
QHOQUAIL C 001 0092 1464 OOJRCPRT C001 0015 
QHORFILK C 001 0052 1436 RCPIC C001 OOIF 
GHSCT C001 Oo— 1486 solroaLce, C oot 000 
QHDSCT C001 0096 1466 0 
QHDSEC C001 0078 1455 REL C001 ood 
QHOSILK C001 0066 1446 
11JQHOSNA «C001 OO7E 1458 11/REOS =—C 001-0004 
QHDSPLK C001 OOAC 1477 REPLY C001 0009 
QHOSPTCB C001 0041 1427 RESTART C 001 OOE3 
12]qHDSQB. «C001 0056 1438 12]REXTND C001 002E 
QHOSQE C001 004A 1432 REXTNP £001 on 
@psas “C001 0082 1460 REXTRA 
HQHDSQSPT C001 0070 1451 T3]RFIND§ =—C 001 0001 
QHDSUBCN C 001 ONC 1469 meer on oe 
QHOSUBRA C001 009E 1470 RGLFAC  C O01 
14QHDTCBQ C001 0046 1430 T4IRGLFR = C.-001 0039 
QHDTINEA C 001 O03E 1426 icon ¢ 1 oe 
QHDTIPER C 001 003C 1425 
Gere Com ous a1 “aco Cool tm 
RINFO-C 001 OOF 
TO{RIOERR C001 0020 
RLIBRY C001 O00A 
RLOPEN C001 0016 
T7|ROFFLINE C 001 0027 
ROPEN C001 0002 
RPGHLT C001 0012 
T&RPRALGN C001 0014 
RPRA2 C001 0028 
RRO «CC O01 0081 
YS{RRSWOOO C001 9000 
PSALOC C001 O00E 
RSETX «=6C OO «0020 


ROSTER -DMRZ- TTB; * WD, SAVE HORIZONTAL TUB 
j TSH 10 


TR? 38 "SGI Ty * 
Bsicd WC SATTUBACOL, KEL), TUBTUBC, RZ) 


URRs FO) GID Ta * 


12/08/81 02:16 
01 


CROSS~REFERENCE 
T LEN VALUE DEFN REFERENCE 


RSGET C001 0008 3746 
O3)RSIN = C 001 0007 3745 
RSLIST C001 0006 3744 
RSLOG =C 001 0005 374 
O4RSMFC §=—C 001 :«003C 3798 
RSMSG ——C_001 3747 


QUEVE C001 0000 1380 

QAIT = 001 0001 2716 ©2731 2733 
QXLOFF C001 0004 2719 = 40154079 
QXR2 C001 0020 2727 

06] axu C 001 0040 2728 

Q0 C001 0000 2729 4118 4402 4449 
Qi C001 0001 2715 

RAFA = C001 -«O01A 3764 

RALLOC C001 O00C 3750 

RCHKPT C€ 001 0030 3786 

BIRCLOSE C001 0003 3741 

ROD C001 O02 3782 

RCPERR C001 0010 3767 

RCPRT C001 0015 3759 4034 

RCPYC C001 OOIF 3769 4026 4057 4097 
RCTMINT C001 0030 1009 

RDALOC C001 000D 3751 
ROMCALL C001 0013 3757 


C 001 0004 3742 
C 001 0009 0489 


: C001 0039 3795 
RICDA  C OO1 0032 3788 
C O01 0033 3789 


3906 * GENCITLE “WSOPR ~- COW PROCESSOR WATT ROUTINE“); 


1/81 12/08/81 02:16 


PAGE 117 09/11/81 12/08/81 02:16 
CROSS-REFERENCE 


Q2|SYMBOL T LEN VALUE DEFN REFERENCES 02) SYMBOL = T LEN VALUE 
RWPLNOSP C 001 0001 


03] RWPLNPRT C 001 0007 
RWPLNRES C001 0003 
RWPLOFF C O01 6002 

O4)RWPLON C001 0001 
RWPLPSUC C001 0005 


a C001 0011 RWPLRCD C001 0001 
OS|RSORT C001 0036 192 RUPLREQ C001 0000 
RSPALC C001 001 ted RWPLSUCC C001 0000 


C 001 0008 3746 
0 SN C001 0007 3745 


C 001 003C 3798 
: 001 0009 at 


lesee 


RSPMIC C001 0031 RWPLTUB C001 6080 
6]RSPOOL C00) 001B abe 06] RMPLTUBA C001 0006 
RSPQYG C001 0043 3805 3806 RWPLWSID C001 0003 
RSTREQ C001 0008 0451 RWSOM” «C001 0017 
O7|RSVWWR = C001 (0022 «3772 O7}RXTEND §=C 001 0043 
RSVIX _C 001 0035 3791 SCAMDWDN C001 0083 
SCAPICDM C 001 008 

OSJRTTC C001 OO1E 3768 08] SCAPMDBO C 001 O0AD 
RUPDAT C001 O02F 3785 } SCA®WDB1 C001 OOAF 
SCAMMDB2 C 001 0081 

OS|RVTORD C001 0010 3754 019] SCASWDB3 C 001 0085 
RWDAF C001 0024 3774 SCAM2KNS C001 000C 

H Lepaed € 001 002A 3780 SCACKRST C 001 0080 
C001 0026 3776 O}SCACONFG C 001 002F 

C001 0021 3771 SCACSATB C 001 0084 

C OOi 0023 3773 SCACSIZE C 001 0011 

1a € 001 0028 3778 LI|SCACSI6K C 001 0004 
C001 0038 3794 SCADIN2K C001 “O7A 

C001 0025 3775 SCAD*TUB C O01 0052 

C001 0029 3779 12] SCADABCT C 001 0077 

{aor C001 003F 3801 SCADBSCT C001 0053 
ROU ~=«C 001 003E 3800 SCADCFGS C 001 O0AB 


REFE 


2532 


OF aT RTE BLL TL 
490) "BE DAITIALIZED FOR AUTO START: “7 
22/2. JOB WEE */ 


8%" D> ATID SPBHL LETTE Fi 


vo9/11781 12/08/81 02:16 
01 


Sl WOO/I/B] T270R/81 C216 | PSUR ASOPR - COMA) ARICESSOR WAIT ROUTINE 


" Bessonen 12) * SUARTOP ABENDED? GR... */ 
anal aeRO |} | 2 THEN 7° USIDCH POST PEWDENG? y 
a more | || | OAC BD WO ONS] BB 

* pee 03) DID FZ Bi OF 3O7B 

” RD | | 

* Daare | ||| UTR ID BD DK SoyH 


CROSS-REFERENCE 


O2)SYMBOL T LEN VALUE DEFN = REFERENCES -  f027SYMBOL = T LEN VALUE 


RUPLNOSP C 001 0001 2034 SCADDATE C O01 
O3]RWPLNPRT C 001 0007 2040 O3/SCADDAY C 001 
RWPLNRES C 001 0003 2036 SCADDMIC C 001 
SCADFIST C 001 

O4)RWPLON C 001 04] SCADHFWK C 001 
SCADICSA C001 

RVPLR SCAOKCFG C 001 
O5)RWPLREQ C 001 05] SCADKKKa C 001 
SCADKLRC C 001 

SCADLEF1 C O01 

06 SCADLIN® C 001 
2049 2051 2054 SCADMATR C_001 

SCADMCFG C 001 

O7]RXTEND CC 001 07] SCADMCTR C 001 
SCADMERP C 001 

{SCA*ICOM C 001 0083 2532 SCADMGOI C 001 
08] SCAAWOBO C 001 O9AD 2528 8] SCADMID® C 001 
SCAMMDB1 C001 OOAF 2529 SCADMNTH C 001 
SCAADB2 C 001 0081 2530 SCAOMOD* C001 
09] SCAMWDB3 C 001 00B5 2538 09] SCADMQNT C 001 
SCAM2KMS C001 000C 2102 2106 SCADMTUB C 001 
SCACKRST C 001 0080 2589 SCADPIND C 001 
JO|SCACONFG C 001 O02F 2231 2233 OI SCADPSVC C 001 
SCACSATB C 001 0084 2381 2383 SCADPTUB C 001 
SCACSIZE C O01 OO11 2145 2148 SCADREJa C 001 
I|SCACSI6K C 001 0004 2146 SCADREL# C 001 
SCADAN2K C001 207A 2372 2374 SCADREOJ C 001 
SCAD*TUB C O01 0052 2261 2263 SCADRFTR C 001 
2|SCADABCT C 001 0077 2350 2352 2|SCADRSCZ C 001 
SCADBSCT C 001 0053 2263 2265 SCADRSEC C 001 
SCADCFES C001 OOAB 2517 2527 2540 SCADRSPC C 001 
13]SCADCFG] C001 0012 2148 2163 4018 4066* 4435* HSCADSBFP C 001 
SCADCFG2 C 001 0013 2163 2176 4083 SCADSCIM C 001 
SCADCFG3 C001 0014 2176 2186 4125 4250" 4270* 4278* SCADSOLP C 001 
T4{SCADCFG6 C001 00C4 2586 2598 4| SCADSOLS C 001 
SCADCFG7 C001 O09F 2466 2486 SCADSECA C 001 
SCADCFGS C001 OOA7 2493 2503 SCANSECZ C 001 
SISCADCFES C 001 OOAS 2503 2515 4314 5] SCADSEUa C 001 
SCADCFSZ C 001 0008 2100 2102 SCADSEUQ C 001 
SCADCHIR C 001 0018 2199 2215 SCADSLOG C 001 
J6{SCADCOM C 001 0093 2451 SCADSLOT C 001 
SCADCPKA C001 004) 2256 SCADSHAT C 001 
SCADCPS1 C O01 0070 2327 2337 +4092 SCANSNAI C 001 

17] scances2 € 001 0071 2337 2347 3980 SCADSHAT C 001 
SCADCPS3 C 001 0003 2576 2586 4152 SCADSPIa C 001 
SCADCPS4 C001 0800 2544 = 2554 SCADSOS C001 

4 SCADCPUA C001 0082 2379 23831 3958 4338 SISCADSSCS C 001 
SCADCPYR C 001 OOFF 2634 2636 SCADSSIO C 001 
SCAMSP! C001 O08 2383 «2398 STADSS.IQ € O01 
YO[SCANCSP2 C 001 008 2398 = 2408 SCADSSHS C 001 
SCADCSP3 C001 O0SE 2003 2418 SCADSSPF C 001 


: 
g 
c] 
8 
g 
: 
: 


a 


ol 
| [ERR LOC OBJECT CE AR SOT SOURCE STATE 


0076 


PARE «82 WOO/11/81 12/08/81 02:16 | |ATSCPR SCPR - COND PF 
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02:16 
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01 01 
CROSS-REFERENCE 
SCADDATE C 001 O05F 2299 2301 SCADSSVC C 001 0005 
D3/SCADDAY C 001 005F 2298 2299 03}SCADTBUF C 001 0097 
SCADOMIC C001 0001 2080 SCADTKS2 C001 O0AA 
SCADFIST C 001 0051 2260 2261 SCADTLOK C 001 0002 
D4) SCADHFWK C 001 00A4 2488 ©2491 O4)SCADTRSZ C 001 009A 
SCADICSA C001 00C6 2598 2600 SCADUCFG C001 0006 
SCADKCFG C 001 0040 2115 SCADUDT1 C 001 0005 
05|SCADKKKa C 001 0008 2622 2624 05) SCADUDT2 C 001 0003 
SCADKLRC C 001 0068 2317 2320 2322 SCADUDT3 C001 0001 
SCADLBF1 C 001 OO4F 2258 2260 SCADUDT4 C 001 OCF 
D6] SCADLIN® C 001 0091 2420 2447 4129 4311 O6]SCADVICE C 001 0055 
SCADMATR C001 O0EO 2636 SCADMDBR C001 0087 
SCADMCFG C001 0079 2362 2372 SCADWOBT C 001 O0AC 
D7|/SCAOMCTR C 001 007B 2374 ©2375 O7|SCADWRKa C 001 00A6 
SCADMERP C001 004) 2255 2256 2258 ADWSQS C001 0098 
SCADMGOI C001 0073 2347 «2348 SCADXMID C 001 00C2 
D8} SCADMID® C 001 O07E 2376 2377 08] SCADXMI1 C 001 00C1 
SCAOMNTH C 001 O05E 2297 2298 SCADXMI2 C001 00C2 
SCADMOD* C001 0017 2197 2199 SCADXSLT C 001 0085 
D9] SCADMQNT C 001 006B 2386 2368 09} SCADXSVC C 001 0003 
SCADMTUB C 001 0060 2322 2323 3837 4222 SCADXTRA C 001 0078 
SCADPIND C O01 0010 2141 2145 ‘ SCADYEAR C 001 0050 
O|SCADPSVC C 001 0000 2083 2084 10}SCAFVTOC C 001 OO1E 
SCADPTUB C 001 006F 2323 2327 SCAFVTON C001 0020 
SCADRE Ja C001 0092 2449 2451 SCAHFCUR C 001 0035 
SCAOREL® C 001 0016 2196 2197 11] SCAHFERR C 001 0080 
SCADREOJ C 001 0095 2447 2448 2449 2453 SCAHESIZ C 0010033 
SCADRFTR C001 OOCE 2600 2602 SCAIPLIK C 001 0060 
N2|SCADRSCZ C 001 OO?7F 2377 2378 2\SCAIPLW C 001 
SCADRSEC C001 OOA2 2486 2488 SCAIPLW5 C 001 
SCADRSPC C001 O0BF 2542 2544 SCAIPLWG C 001 


WSCADSBFP C001 0048 2253 ©2255 H SCAIVTOC C 001 
SCADSCIN C 001 0070 2375 2376 SCAIVTON C_001 
SCADSDLP C 001 OO9E 2464 2466 SCALOGSS C 001 
HSCADSDLS C 001 O09D 2463 2464 14]SCAMACDP C 001 
ISCADSECa C001 0076 2348 2350 SCAYACDV C 001 


} 


SCADSECZ C 001 0080 2378 = 2379 SCAMACIG C 001 
3 SCADSEUA C 001 0057 2267 2268 | SCAPACSP C 001 
SCADSEUQ C 001 0059 2268 2269 2271 SCAMACU C 001 
SCADSLOE C 001 005A 2271) = 2275 SCAPCU2 C 001 
SCADSLOT C 001 OOBA 2384 23% 16] SCAYCUS C 001 
SCADSMAT C 001 0090 2413 2420 SCANACUS C 001 
SCADSNAl C 00] O09B 2461 2462 SCAPLL C 001 
‘SCADSMAT C001 OO9C 2462 2463 17) SCAPARRR C 001 
SCADSPIa C 001 000A 2098 2100 SCAMATES C 001 


Mi 
28 
Bas 
SE) 
B83 
iil 
sig28 


Ht 
88s 
TF 
Tr 
393 
: 

8 


8 

2 

2 

8 
3 

8 


bel 
8 
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1 12/08/81 02:16 
01 
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CROSS-REFERENCE 


02]SYMBOL T LEN VALUE DEFN REFERENCES 


SCADSSVC C 001 0005 2085 2087 

O3}SCADTBUF C 001 0097 2453 2455 
ADTKSZ C001 OOAA 2515 251738773890 

SCADTLOK C 001 0002 2415 

SCADTRS2 C 001 009A 2459 2461 

SCADUCFG C 001 0006 2602 2603 2604 2605 2606 2622 


04 


SCADUDT4 C 001 OOCF 2606 
SCADVICE C 001 0055 2265 2267 
AOMDBR C001 0087 2540 2542 
SCADWDBT C 001 OOAC 2527 2528 2529 2530 2531 2538 
SCADWRKA C 001 OOA6 2491 2493 
ADWSQS C001 0098 2455 2457 
SCADXMID C 001 O0C2 2554 2556 2566 2576 
OY SCADXMI1 C 001 00C1 2556 
SCADNNI2 C 001 O0C2_ 2566 
SCADXSLT C 001 0085 2383 2384 


SCAFVTOC C 001 OOlE 2218 2219 

SCAFVTON C 001 0020 2219 2221 

SCAHFCUR C 001 0035 2235 2237 

SCAHFERR C 001 0080 2276 

SCAHFSIZ C 001 0033. 2234 2235 

SCATPLUK C 001 0060 2319 3866" 4049 4440 4443* 
SCAIPLUL C 001 0068 2320 4323" 4325 4348 4348* 
SCAIPLWS C 001 0095 2448 


1 


SCAIPLUS C 001 0059 2269 


SLE JUBLUNR-2112, 9A), SOBLLINTH-1¢ MRL) 
1 M2S0SSFONGOMEZ) THEN /* X21 FEATURE? 


01 


O2|SYMBOL =T LEN VALUE 


SCANCFGS C O01 
03] SCANCLOG C 001 
SCANCLOK C001 
SCAICMDE C 001 
O4|SCANCNAT C 001 
_ | SCAMCOUT C 001 
SCANCPAF C 001 
05] SCANCPL C 001 
SCAMCRAN C 001 
SCACRT C 001 
06] SCAMDATE C 001 
SCANDCKF C 001 
SCAMDEAD C 001 
07] SCAMDELE C 001 
SCAMDFA C 001 
SCANDOM C O01 
08] SCAMDPOK C 001 
SCANDPUS C 001 
SCAYDREC C O01 
09] SCANDSIZ C 001 
SCAMDSKS C 001 
SCANDUAL C 001 
10) SCAMEDDM C 001 
SCAMEJCT C 001 
SCATERP C 001 
11/SCAMFAIL C 001 


0004 
0010 
0002 
0001 


OEFN 


2192 
2190 
2282 
2174 
2164 
2339 
2341 
2328 
2154 
2273 
2290 
2578 
2194 
2343 
2592 
2292 
2142 
2143 
2363 
2123 
2122 
rabyl 
2596 
2281 
2335 
2402 
2478 
2401 


REFEREN 


1305 


1/81 12/08/81 02:16 
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CROSS-REFERENCE 


O2}sYmBOL oT LEN VALUE DEFN REFERENCES 


SCAYCFGS C 001 0004 2192 SCAPLATF C 001 
03]SCAMCLOG C 001 0010 2190 03] SCAMLCAF C 001 
SCAMCLOK C 001 0002 2282 SCAMLGER C 001 
SCANCMOE C001 0001 2174 SCAMLINI C 001 
OA|SCAMCNAT C 001 0080 2164 04) SCAMLINZ C 001 
SCAMCOUT C 001 0040 2339 SCANLIN3 C 001 
SCANCPAF C 001 0010 2341 SCAMLING C 001 
O5|SCAMCPL C001 0080 2328 05] SCAMLSMF C 001 
SCANCRAN C 001 0008 2154 SCAMLOTR C 001 
SCAMCRT C001 0010 2273 SCAMLOTX C 001 
6] SCAMDATE C 001 0008 2290 (06/SCAMLITR C 001 
SCAMDCKF C 001 0040 2578 SCAMLITX C 001 
SCANDEAD C 001 0001 2194 4309 SCAML2TR C O01 
O7|SCAMDELE C 001 0004 2343 07|SCAML2TX C 001 
SCAYOFA C001 0010 2592 SCAML3TR C 001 
SCANDOM C O01 0002 2292 SCAFL3TX C 001 
08} SCAMDPOK C 001 O0A5 2142 08] SCAMLATR C 001 
SCAMDPUS C 001 005A 2143 SCAMLATX C 001 
SCANDREC C 001 0080 2363 SCAD32 C 001 
OOSCADSIZ C 001 0001 2123 O91 SCANMLCA C 001 
SCAPDSKS C 001 0081 2122 SCAMMRJE C 001 
SCAMDUAL C001 0080° 2111 SCATSBL C O01 
JO{SCAMEDON C 001 0001 2596 10) ScAemo00 C 001 
SCANEJCT C 001 0004 2281 SCANOTTO C 001 
SCAMERP C001 0001 2335 SCANPIE C 001 
LI[SCAMFAIL C 001 0010 2402 11] SCAMPOVK C 001 
SCAFFLOC C001 0010 2478 SCAPPREP C 001 
SCAPFORK C001 0020 2401 SCAHPRT C O01 
2\SCANFUND C 001 0004 2582 SCAMPRIO C 001 
SCAPHALC C001 0020 2476 SCAPPR20 C 001 
SCAPHDEL C 001 0040 2470 SCAPPRAO C 001 
MSCAMHELP C 001 0020 2340 1 SCAMPRIO C 001 
SCAMHEMT C 001 0020 2473 SCAMPUSF C 001 
SCAPHLDP C 001 0020 2288 «38644307 SCARBLD C 001 
14)SCARESZ C001 O00F 2482 14{SCAPRCFE C 001 
SCMTERP C001 0090 2467 : SCAMRILP C 001 
SCAMICRI C001 0008 2403 SCARSEC C 001 
SISCARICR2 C 001 0002 2405 5] SCANRAW C 001 
ISCAMICS C001 0004 2192 SCARCE C 001 
SCAMIEXL C 601 0008 7593 SCAMMET C C01 
JO{SCAMIOCL C 001 0010 2580 16] SCARRAN C001 
SCATIPL € 001 9010 2279 SCARS C001 
SCAMIPLA C O01 6080 7306 SCAMEA C 001 
T7|SCAMIPLE C 001 0000 22777-4352 T7|SCAMRUSP C 001 
SCATIPUP C 001 0010 2289 3864 4362 4366 4403 4043 SCAMBSY C 001 
SCAUNBQ C GOL 0020 7166 4053 SCE" C O01 
SCAT C O01 0002 2158 MIS 466 4433 ASCASACT C 001 
SCALED C O01 0004 2156 SCANSEC C001 
° Cool 0008 7333 SCHSFLE C O01 
TOSOWREYS C O01 oO8D 2338 TA SOMSIZE C O01 


02]SYmBOL = T LEN VALUE 


0008 
0002 


DEFN 


2581 
2183 
2399 
2432 
2433 
2434 
2435 
2559 
2355, 
2354 
2207 
2203 
2206 
2202 
2205, 
2201 


REFE 


3980 


4125 


3862 


11/81 12/08/81 02:16 
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CROSS-REFERENCE 


O2}SYMBOL T LEN VALUE DEFN REFERENCES 02) SYMBOL = T LEN VALUE 
SCAMLATF C 001 0008 2581 SCANSMFC C 001 0020 
3] SCAMLCAF C 001 0002 2183 03] SCANSMEM C 001 0040 
SCAMLGER C 001 0080 2399 SCAYSNA C001 0010 
SCAMLINI C 001 0080 2432 SCANSPB C001 0001 
04) SCAMLINZ C 001 0040 2433 O4| SCAMSPGP C 001 0020 
SCAMLIN3 C001 0020 2434 SCANSPOL C 001 0010 
SCAMLING C001 0010 2435 ; SCANSPRK C 001 0040 
05] SCAMLSME C 001 0020 2559 05] SCAMSRJE C 001 0020 
SCAMLOTR C 001 0020 2355 SCANSST C001 0008 
SCAMLOTX C 001 0040 2354 SCANSUBS C O01 0004 
O6|SCAMLITR C 001 0001 2207 06] SCAMSWAP C 001 0004 
SCAMLITX C001 0010 2203 SCANS32K C 001 0010 
SCAML2TR C 001 0002 2206 SCANS48K C 001 0018 
07/SCAML2TX C 001 0020 2202 07] SCANS64K C 001 0020 
SCAML3TR C 001 0004 2205 SCANS96K C001 0030 
SCAML3TX C 001 0040 2201 SCAMTACT C 001 0001 
08] SCAML4TR C 001 0008 2204 08] SCAMTELL C 001 0001 
SCAML4TX C 001 0080 2200 SCANTOLD C 001 0002 
SCAND32 C 001 0080 2187 SCAMIASF C001 0002 
OOF SCAMMLCA C 001 0080 2409 OS} SCAMVHLD C 001 0080 
SCAPPRJE C001 0040 2179 SCAMMOPR C001 0004 
SCATBBL C001 0008 2342 3980 SCAMDRX C001 0008 
JO{SCAMODDD C 001 0001 2584 1O|SCAPMSCB C 001 0040 
SCAMOTTO C 001 0001 2184 4125 4250 4270 4278 SCAESE C001 0010 
SCAPIE C001 0002 2193 SCAMITC C001 0004 
11[SCANPOVK C 001 0040 2400 1I{SCAMXTRA C 001 0080 
SCAPPREP C 001 0001 2283 SCAPK21 C001 0001 
SCAPPRT C001 O0EO 2272 SEMRZIS C O01 0002 

2 SCAMPRIO C001 0001 2620 12|SCAR211 C 001 0088 
SCAFPR20 C 001 0002 2619 SCAMK212 C 001 0044 
SCAFPR4O C 001 0004 2618 SCAZ13 C001 0022 

4H SCANPROO C 001 0008 2617 3 SCARK214 C 001 0011 
SCAB C 001 0040 2165 SCARYYD C001 0001 
SCAMRBLD C 001 0008" 2780 «3862-4069 +4412 SCAD128 C 001 0001 
14{SCAPREFG C 001 0002 2511 14 SCN%10256 C 001 9002 
SCAFRILP C001 0020 2579 SCN'NS12 C 001 0004 
0041 

0010 


gS 8 818 § BR 8 818 8 G18 


REFE 


4083 


4149 
152 
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CROSS~REFERENCE 


02)SYMBOL T LEN VALUE DEFN © REFERENCES 102] SYMBOL = T LEN VALUE 
0020 


SCAMSMEC C 001 0020 2591 SCAOVER C 001 
03]/SCANSMEM C 001 0040 2188 03] SCARDENT C 001 
SCANSNA C001 0010 2180 SCARDVOL C 001 


SCANSPB C001 0001 2161 SCASDISK C 001 
OA SCAMSPGP C 001 0020 2151 O4/SCASHIST C 001 
SCAMSPOL C 001 0010 2167 4083 SCASHMSG C 001 
SCASIOSS C 001 


OS] SCAMSRJE C 001 0020 2178 05} SCASMSG1 C 001 
SCAMSST C 001 0008 2332 SCASMSG2 C 001 
SCAMSUBS C 001 0004 2594 SCASPARK C 001 

06] SCAMSWAP C 001 0004 2510 06] SCASSTWA C 001 
SCAMS32K C001 0010 2093 SCASTOPS C 001 
SCAMS48K C 001 0018 2092 


SCASWISG C 001 
O7|SCANS64K C 001 0020 2091 O7ISCASYS C 001 
SCANS96K C001 0030 2090 SCASYS1 C 001 


0067 


3 VO9/11/81 12/08/81 02:16 i PAGE 124 VO9/11/81 12/08/81 02:16 ia 
CROSS-REFERENCE 
SCAOVER C 001 0020 2278 4063 4069 SVCLDATR C 001 000C 2659 
103] SCARDFIT C 001 0067 2305 2317 03]SVCLOAD CC 001 0052 2709 
SCARDVOL C001 0066 2303 2305 4350* SVCLOG C001 OO1A 2673 
SCASDISK C 001 OOOF 2110 2141 SVCMOVET C 001 002A 2690 
O4|SCASHIST C 001 0031 2233 2234 O4SVCOP C001 O0F4 2735 
SCASHMSG C 001 003B 2238 2239 SVCPAR C001 0000 2660 
SCASIOSS C 001 0025 2224 2225 SVCPOST C 001 0003 2650 
05) SCASMSG1 C 001 0038 2237 2238 O5|SVCPOSTA C 001 0019 2672 
SCASHSG2 C 001 0041 2240 2222 SVCPOSTI C 001 0028 2691 
SCASPARK C 001 0040 2364 SVCPPSVC C 001 000B 2658 
SCASSTWA C001 OOIA 2215 2216 3874 06} SVCPQSVC C 001 O04C 2705 
SCASTOPS C 001 0080 2577 SVCPREP C001 0026 2686 
SCASMSG C O01 G03E 2239 «2240 SVCPRIQ C001 0024 2684 
O7ISCASYS C001 0000 2078 2080 2083 2085 O7|SVCPT C001 0042 2701 
SCASYS1 C001 0058 2275 2285 3862* 4063 4069* 4352* SVCQS C001 0020 2679 
SCASYS2 C001 OO5C 2285 2296 3864* 4307" 4362 4366" 4408 4412 SVCOSCAN C O01 001B 2674 
OSISCATWASZ C 001 OOIC 2216 2218 3875 08] SVCQUEUE C 001 O00E 2661 
SCAUSER@ C001 0049 2252 2253 SVCQMAIT C 001 002C 2692 
SCA2KBAD C 001 0008 2095 2098 SVCRDEQ C001 0021 2681 
OS SCAZKOK C001 0000 2096 OS|SVCRDYCK C 001 0025 2685 
SCA2SPIN C001 0080 2112 0021 
SCASSPIN C 001 0020 2113 0028 
O|SCASSPIN C 001 0010 2114 OOF 
SETOUP C001 001B 0470 0009 
SEVEN C601 0007 0116 0029 
SENIPL C001 0010 0459 0023 
SIX COOL 0006 0115 0015 
SPECIAL C 001 0007 0449 OOF 
2 C001 O0E2 0491 0014 
STATEND C001 GOOF 0458 
STATUS C001 O0C4 0486 
STOP = C001 CUNT 
STOPDONE C 001 0013 0467 


STOPOB C001 0028 0433 

STRTPRI C001 0011 0460 : 
SVCASGN C001 OOOA 2657 

SVCASSEN C O01 0006 2653 = 3832 3922 4141 4232 

SvCcorm ¢ oom 

soe C 0050 

SVCOSPCH C [2] 

soup 

SWCEXIT ool 2 $ 


Ol 28 
001 270 
Ol 2687 
C a1 2682 
Cw 2A 
wc C Ol OO m9 
L7ISWCFREE COD ODOT 2654 =| (4118 
SMOFREEP COOL GUIS 2666 
Col OL ae 
a Col om ae 
Con we a 
SMC TORN COG OOK5 77D 
9 Ol ONES 2h 
om wea 7H 
GOST 


* SET FAL PROCESSING COMPLETE 
SBR 


55 ** RA SHRI PROCEDURE HA DEON REBUESTEL, 17 WILL BE STARTED / 5600 ! 


ao nS PSERSURARRROCARREPDamaENEnmmemmEE remacaemrramane terme te ape EN eee Te nEnETaUE OUD 


1/81 12/08/81 02:16 


01 01 


CROSS-REFERENCE 


O2|/SYMBOL T LEN VALUE DEFN REFERENCES 02} SYMBOL = T LEN VALUE 
SVCLOATR C 001 O00C 2659 TCBAPSMR C001 0021 
SVCLOAD C001 0052 2709 03} TCBAQHOR C 001 002F 
SVCLOG C001 001A 2673 TCBARQ C001 0023 
SVCMOVET CG01 002A 2690 TCBARSE C001 0018 

04 C001 00F4 2735 O4 TcBaXR1 C001 0019 

TCBAXR2 C001 0018 
SVCPOST C001 0003 2650 4449 TCBABTRM C 001 0010 

O5|SVCPOSTA C 001 0019 2672 05] TCBAEOEO C 001 0002 
SVCPOSTI C 001 0028 2691 TCBAFAIL C001 005F 
SVCPPSVC C 001 0008 2658 TCBARQCT C 001 0076 

O6|SVCPOSVE C 001 004C 2705 4079 06] TCBASGNQ C 001 005D 
SVCPREP C001 0026 2686 TCBASRWT C001 0002 
SVCPRIQ C001 0024 2684 TCBATNS C001 0080 

O7/SVCPT C091 0042 2701 O7|TCBATRS C 001 O04F 
SWOQS C001 0020 2679 TCBATTCH C 001 0040 
SVCQSCAN C O01 OO1B 2674 TCBAMAIT C 001 0080 

OB] SVCQUEUE C 001 O00E 2661 08] TCBAMSCT C 001 0070 
SVCQUAIT C 001 002C 2692 TCBBAT C001 0078 
SVCRDEQ C001 0021 2681 TCBBEGL C001 0028 

OO|SVCRDYCK C 001 0025 2685 ON TcBcAT C001 0071 
SVCRENQ C001 0021 2680 2681 TCBCATA. C001 0070 
SVCRPT C001 0028 2668 TCBCCALL C 001 0010 

OISVCSCB C001 O00F 2562 TOITCBCHAIN C 001 0000 
SVCSNSSW C001 0009 2656 TCBCRKPT € 001 0040 
Susg 001 0029 2689 TCBCHPLO C 001 0009 
SVCTEST € 001 0023 2683 li} Tescncwr ¢ 001 0074 
SVCTID 5001 O15 2668 TCBCMLPD C O01 0004 
SMITH C O01 OOlF 2078 TORCNZPD C 001 0040 
2ASWCTIN C001 0014 2667 2 TCOCNSPD C 001 0020 
SVCTIR COOl 0016 2669 CRCRB C001 O0I7 
SMT CGOl 0017 2670 TCODEDO ¢ 001 0001 
SMCTOD «C001 ONZE 2694 TOBDEWT C 001 0008 
SHCTPOST C 001 O01D 2676 4393 Teposn = C 0010001 
ray TCOOKTUT C 001 0020 

14 SCnAIT A 14 Tourero ¢ 001 9002 
SaOUNSTK TOOOFPO C001 0001 
= . 000 

0010 
0020 
‘O10 
onaF 
028 
og 
om 
ono 
oop 
om 
ou 
ona? 
ons 
ure 
OEE 
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01 Ol 


CROSS-REFERENCE 


O2| SYMBOL T LEN VALUE DEFN REFERENCES 


TCBIDBLO C 061 
03] TCBIDBSC C 001 
TCBIDBTS C 001 


TCBAPSMR C 001 0021 2912 2913 
TCBAQHOR C 001 002F 2931 


TCBIDCCP C 001 

O4 TCBAXR1 C001 0019 2908 2909 O4 TCBIDCIC C 001 
TCBIDCP C 001 

TCBABTRN C 001 0010 2996 TCBIDGA C 001 
TCBAEQEO C 001 0002 3011 O5| TCBIDGCE C 001 
TCBAFAIL C 001 O05F 2943 TCBIDIBS C 001 
TCBIDINS C 001 


TCBARQCT C 001 0076 3023 3024 
TCBASGNQ C 001 005D 2941 2942 
TCBASRWT C 001 0002_ 2839 


06) TCBIDINT C 001 
TCBIDITH C 001 


TCBATNS C001 0080 3026 TCBIDJQ C 001 
O7|TCBATRS C 001 O04F 2932 2933 O7/TCBIOPR C 001 
TCBATTCH C 001 0040 2994 TCBIDPER C 001 
TCBAMAIT C 001 0080 2819 TCBIDSDP C 001 
OI TCBAMSCT C001 0070 3014 3015 3016 08] TCBINSDS C 001 
TCBIDSFS C 001 

TCBIDSNE C 001 

OO] TCBIDSNF C 001 

! 0070 3015 TCBIDSNR C 001 
TCBECALL C 001 0010 2847 TCBIOSN] C 001 
HTCOCHAIN C 001 O00D 2898 2899 4375 4379 OF TCBIDSRJ C 001 
TCRCHKPT C 001 0080 2345 TCBIDS44 C 001 
TCOCHPLQ C 001 0009 2894 2897 TCBINGD C 001 
TORMENT COOL 0074 319-21 11j TCBINQSP C O61 
COCMLPD C 001 004 72998 TCBINVCT C O01 
FCRCHZPD C O01 0040 3006 TCBIQCNT C 001 
A TCRCIDPD C O01 0020 3007 ZI TCBIWAIT C 001 
FCRCHB CC OOl OO17 2906-2007 «20082918 TCBCBa_C 001 
TCRUEDS € O01 0001 3033 4759 TCBJSTIN C 001 
TCROEVT C 001 0008 2837  TCRKCALL C 001 
TCRD COO) OOO] wiz TCRKMAIT C 001 
TOROKTT C 001 0020 2835 TCBLCKDI C 001 
TCROMEPD C 001 0002 2850 14] TCALCHHI C 001 
TCRORFPO C001 0001 300i FCBLCRIK C 001 
FORSKTR C 001 O08 30Z7 TCBLCKPI C 001 
[ATCT C O01 O00 2336 3 TCBLEXSI C 001 
Toe C 001 O02 soz8 TOBLEKS?P C 001 
CRA C O01 6010 2H IS MH 4S TCBLOKVI € 001 
ETORETER C O01 GF 2530 [GU TCBLERSI C 001 
TOROS C O01 GOZs 2024 TORLDISK C 001 
TOREREY COO] OF 742 23 2905 TORLOREL C O01 
CREXTAA C GO GUD 2306 17 TORLENC O01 
TORGRD C GUI GnaD 7796 TOBLIMA C 001 
TOSUNP C Obl GObe 2D FORLONGN C O02 
Lig FORFUATT C Gti OBER BEB eee C Ooi 
OAT C OGn GUND Zee ZT TOWRA C O01 
* Can Ga wm TONG «6C ODl 
TORIC C Gl aioe ZEB 19 Tomei C Ool 
TORT COO GREY PAD ET TORGAFL C GO! 
CREEL C OO] GREE ZEN TORESIZ C GO 


MATT FOR TP COMPLETE miata" 


02]SYMBOL = T LEN VALUE 


00F9 


OOFA 
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01 
CROSS-REFERENCE 

Q2]}SYMBOL T LEN VALUE DEFN REFERENCES O2}SYMBOL = T LEN VALUE DEFN 
TCBIDBLD C 001 O0OF9 2982 4377 4500 TCBMSTAB C 001 0004 3010 
03] TCBIDBSC C 001 OOF5 2977 03) TCBNOUNP C 001 0008 3030 
TCBIDBTS C 001 OQ0E6 2962 TCBNOIO v 001 0002 2801 
TCBIDCCP C 001 OOEB 2967 TCBNRDY C 001 OOBE 2815 
O4)TCBIDCIC C 001 OOEC 298 O4)TCBNSCNT C 001 0073 3018 
TCBIDCP C 001 OOFO 2972 TCBNSWAP C001 0001 2802 
TCBPRBCH C 001 O0CO 2886 
OS} TCBIDGCE C 001 O0E8 2964 OD] TCBPRBEL C 001 OOFO 2874 
; TCBPRBLD C 001 OOFO 2867 
TCBIDIMS C 001 O0ED 2969 : TCBPRBSC C 001 OOF4 2859 
O6|TCBIDINT C 001 OOEF 2971 06] TCBPRBTS C 001 OOFO 2876 


TCBIDITH C 001 O0E5 2961 TCBPRCCP C 001 OOFO 2871 
TCBIDIQ C 001 O0F2 2974 TCBPRCIC C 001 OOFO 2872 
O7}TCBIDPR C001 00F4 2976 O7|TCBPRCNV C 001 0000 2885 
TCBIDPER C 001 O0EA 2966 
TCBIDSOP C 001 OOF6 2978 
OG TCBIOSDS C 001 OOFB 2979 
TCBIDSFS C 001 O0F3 2975 
TCREDSNE C 001 O0E7 2963 


Tf 

g88 

08 
a 

Tce 

3 

q 


uae 
888/88 888s 
BS 58851888 
132 
d 


SB SBS R SERS S RRS RRS Tas 


a 


o 
8 
S¥Ree 


REF 


301 


449 


2891 
2991 
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CROSS-REFERENCE 


O2]}SYMBOL T LEN VALUE DEFN — REFERENCES O2]SYMBOL T LEN VALUE DEFN 
TCBMSTAB C 001 0004 3010 TCBSIAR C00? 0059 2939 
03} TCBNDUMP C 001 0008 3030 03] TCBSMFDN C 001 0080 3057 
TCBSMEPT C001 O07C 3053 


TCBNRDY C001 OOBE 2815 TCBSNARQ C 001 0002 3032 
OAITCBNSCNT C 001 0073 3018 3019 4370* 4390 O4TCBSOP C001 0008 2798 
TCBNSWAP C 001 0001 2802 TCBSPLRS C 001 0040 3065 
TCBSPLSP C 001 0010 3045 


QO5] TCBSPOOL C 001 002F 2929 


TCBSTAT C 001 
O7]TCBSTAT2 C 001 
TCBSTAT3 C 001 
TCBSTAT4 C 001 
OS] TCBSTATS C 001 
TCBSTAT6 C 001 
TCBSTAT? C 001 
OW TCRSUSP C 001 
TCBSUSPD C 001 
TCRSUSPS C 001 


“ 


= 
bad 
§ 


Lome 
§§ 8888 sisss 
: sg 8888 
gue SLE 
u 
SELL 
88888 88s 
SNGUORGHBRDEREGSSSSRRREGRE SER Se aes ese eR 
EEL EEL TEEEL LET LEEE TLL Eee Er 


| 
a 
ij 3 
; 
g 
3 


a 
8 
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CROSS~REFERENCE 


O2}Sy"BOL T LEN VALUE DEFN — REFERENCES 


TCBSTAR C 001 0059 2939 
03] TCBSMFON C 001 0080 3057 
TCBSMEPT C 001 O07C 3053 
TCBSNARQ C 001 0002 3032 
OA) TCBSOP C001 0008 2798 
TCBSPLRS C 001 0040 3065 
TCBSPLSP C 001 0010 3045 
5} TCBSPOOL C 001 002F 2929 2930 2931 2932 
TCBSPUNK C 001 0080 3042 
TCBSPWTR C 001 0080 3064 
06] TCBSQBCT C 001 0068 2945 2946 
TCBSSTID C 001 006A 2956 2958 
TCBSTATI C 001 0000 2792 2804 
O7|TCBSTAT2 C 001 0001 2804 2817 4386 
TCBSTAT3 C 001 0004 2842 2853 
TCBSTAT4 C O01 OO6E 2991 3003 4420* 
OS} TCBSTATS C 001 O06F 3003 3014 
TCBSTAT6 C 001 0077 3024 3035 4259* 
TCBSTAT? C 001 OO7E 3062 3067 
OS TCBSUSP C001 0002 2812 2815 
TCBSUSPD C 001 0004 2849 
TCBSUSPS C 001 0079 304¢ 3049 
OJ TCBSWAIT C 001 0040 2820 3901 
TCBSWAPD C 001 0040 2795 


TCBSWAPQ C 001 O00F 2900 
LIJTCBSYSTM C 001 0020 2995 4420 
TCBTAS C001 0020 2821 


TCBTERM C001 0080 2844 


TCBTSKID C 001 006B 2958 2939 4377 4390* 
TCBTSSN C001 002A 2922 2923 
TCBTTC C001 0051 2933 2934 4076 4446 


TCSTTIME C 001 0006 2891 2893 
14 TCBTWA «C001 0053 2934 ©2935 

TCBTWACL C 001 0004 2999 j 
2815 


TCBTMAIT C 001 0004 2811 
>] TCBUDMPR C 001 0080 3036 
TCBUAFLG C001 007A 3049 3053 
TCRUAIT C001 0080 2794 
16] TCBWAITO © 001 0080 2806 7815 
TCRUIOSP C 001 0001 3047 
TCRRASK C 0002 2817 
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02 


03) 


0 

O6 
07 
OS 
09 


10 


11 
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CROSS~REFERENCE 


SYMBOL T LEN VALUE DEFN REFERENCES 


TUBATTRA C 001 
03] TUBATTRB C 001 
TUBATTRC C 001 
TUBATTRI C 001 
O4| TUBATTR2 C 001 


TIME C 001 000C 0455 
TIMESTAT C 001 0019 0468 
TPP*EOV C001 0000 3659 
TRALOAD C 001 0080 0831 
TRUE C 001 0010 0120 


TUBSACTV C 001 0080 3167 TUBATTR3 C 001 
TUBSCYPL C 001 0040 3168 TUBATTR4 C 001 
TUBSCNCL C 001 00C3 3195 5} TUBATTRS C 001 
TUBSDA C001 00CO 3190 TUBATTR6 C 001 
TUBSDEAD C 001 0002 3298 TUBATTR? C 001 
TUBSOPST C 001 0040 3615 06} TUBATTRS C 001 
TUBSDTCS C 001 0001 3186 TUBATTRY C 001 
TUBSERR C001 0001 3174 TUBAUTOB C 001 
TUBSEXEC C 001 O0CO 3192 07} TUBBADGE C 001 
TUBSEXTD C 001 0020 3616 TUBCHAIN C 001 
TUBSIDLE C 001 00C2 3194 TUBCLER C 001 
TUBSKBDP C 001 00CO 3339 3935 108} TUBCLRAD C 001 
TUBSLOCK C 001 0040 3563 TUBCMORJ C 001 
TUBSMITR C 001 O0E3 3333 TuBCMOT C 001 
TUBSNGLD C 001 O0E2 3337 09] TUBCMD] C 001 
TUBSNIO_ C001 0020 3158 TuBCID10 C 001 
TUBSNO2 C 001 0040 3180 TUBCMO11 C 001 
TUBSNRID C001 0005 3301 10) TUBCMD12 C 001 
TUBSOUPT C 001 0027 3206 TUBCMD13 C 001 
TUBSFAAV C 001 O0EO 3191 TUBCID14 C 001 
TUBSPOFF C 001 0007 3304 : 11] TUBCMD15 € 001 
TUBSPOLL C 001 00C1 3193 TuBCMD16 C 001 
TUBSPRIA C001 00E1 3336 TUBCMO1? C 001 
TUBSPUPM C 001 0080 3614 12] TUBCHD18 C 001 
TUBSPUL C001 00A7 3205 TUBCIDIS C 001 
TUBSRACT C 001 0000 3175 TUBCID2 C 001 
TUBSRDIN C 001 0042 3210 13] TUBCD20 C 001 


02} SYMBOL T LEN VALUE 


0054 
0058 
005B 
0035 
0036 
0037 
0038 
0039 
003A 
0044 
0045 
0048 
0020 
0080 
0013 
0010 
0080 
0010 
0020 
0001 
0020 


DEF 
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CROSS-REFERENCE 


02] SYMBOL T LEN VALUE DEFN — REFERENCES 


TUBATTRA C 001 0054 3561 3572 
03] TUBATTRB C 001 0058 3575 3585 
TUBATTRC C 001 005B 3587 3598 


TUBATTRI C 001 0035 339. 3404 3938 
O4j TUBATTR2 C 001 0036 3404 3426 3941 3976* 3978% 
TUBATTR3 C 001 0037 3426 3437 


TUBATTR4 C 001 0038 3437 ©3448 
OS) TUBATTR5 C 001 0039 3448 © 3459 
TUBATTR6 C001 003A 3459 3470 


3489 
3500 
3515 


TUBATTR? C 001 0044 3478 
TUBATTRS C 001 0045 3489 
TUBATTR9 C 001 0048 3503 
TUBAUTOB C 001 0020 3181 
107] TUBBADGE C 001 0080 3505 
TUBCHAIN C 001 0013 3331 
TUBCLER C001 0010 3552 
08] TUBCLRAD C 001 0080 3562 
TUBCIORJ C 001 0010 3483 
TUBCMOT C001 0020 3397 
TUBCMD] C001 0001 3528 
TUBCMD10 C 001 0020 3532 
TUBCMDI] C 001 0040 3531 
TUBCMD12 C 001 0080 3530 


33333929 3933 3954 


TUBCMD14 C 001 0002 3545 
11] TUBCMD15 C 001 0004 3544 
TUBCMD16 C 001 0008 3543 


TUBCIDI7 C 001 0010 3542 
12|TUBCMD18 C 001 0020 3541 
TUBCID19 C 001 0040 3540 


ST * > SAD CAME ACT aCe 
OF 47S SCM Ee 


DA Side END MSCPRENT 


02} SYMBOL 


TUBCPAID C 001 


03} TUBCTSAV C 001 
TURDATAR C 001 
TUBDEVIC C 007 
TUBDEVID C 001 
TUBDEXTA C 001 
TUBDGTUB C 007 
05] TUBDMATX C 001 
TUBDPRST C 001 
TUBDRESV C 001 
06] TUBECN = C 001 
TUBERAID C 001 
TUBERBFG C 001 
O7|TUBERPCT C 001 
TUBERRCT C 001 
TUBFCNSL C 001 
08] TUBFLAG C 001 
TUBFISK C 001 
TUBGATJD C001 
09] TUBGAIJP C 001 
TUBGCHAR C 001 
TUBHELP C 007 
10) TUBHELPM C 001 
TUBHPND C 001 
TUBHZ2QC 001 
T1{TUBIARF C 001 
TUBIDEL C 001 
TUBITS C 001 
TUBIMI = C 001 
TUBINPA C 001 


4 


T LEN VALUE 


DE 


WIS SSIS SRS S vie & BID & Ble & Sly & Sly & Sly & Sly & Sly & Sle & Sle & Ble & Ble & ole & le we 
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01 
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1 

CROSS~REFERENCE 
O2| SYMBOL T LEN VALUE DEFN REFERENCES 


TUBCPAID C 001 0026 3386 3367 TUBMDATA C 001 
03] TUBCTSAV C 001 003C 3470 3471 03] TUBMDDTA C 001 
TURDATAA C001 0007 3215 3216 TUBMOME C 001 
TUBDEVIC C001 0003 3201 TUBMENUA C 001 
TUBDEVIO C 001 0014 3333 3341 3935 04] TUBMENU2 C 001 
TUBDEXTA C 001 0053 3557 3561 TUBMHELP C 001 
TUBDGTUB C 001 005A 3585 3587 TUBMHOLD C 001 
TUBDMATX C 001 0057 3573 3575 OS) Tusnic = ¢ 001 
TUBDPRST C 001 OO2F 3613 3622 TUBMINIT C 001 
TUBDRESV C 001 0027 3387 3388 TUBMIQOS C001 
O6|TUBECM C001 0000 3154 3165 06] TUBMKANS C 001 
TUBERAID C 001 0018 3355 3356 TUBMLOCL C 001 
TUBERBFG C O01 0017 3349 3355 TUBMOFF C001 
O7]TUBERPCT C 001 0016 3343 3349 07] TUBMROTA C 001 
TUBERRCT C 001 OOlE 3369 3370 TUBMRTSC C 001 
JUBFCNSL C001 0001 3402 TUBPEGA C 001 
QQ} TUBFLAG C001 0002 3177 3188 08] TUBMSECT C 001 
TUBFMSK C001 0051 3548 3557 TUBMSGID C 001 
TUBGAIJD C001 0010 3580 TUBMSGRT C 001 
OO] TUBGAIJP C 001 0040 3631 09] TUBMSGR2 C 001 
TUBGCHAR C 001 0047 3501 TUBMSTDY C 001 
TUBHELP C001 0008 3553 TUBFSUB C 001 

10] TUBHELPM C 001 0047 3500 3501 3503 10) TUBMUSTN C 001 
TUBHPND C001 0002 3467 TUBNOSUB C 001 
TUBONL =«C (001 

JI]TUBIARF C001 0010 3431 11} TUBOPSTS ¢ 001 
TUBIDEL C001 0001 3446 TUBOPTS C 001 
TUBITS € 001 0080 3428 TUBORN C001 
TUBIMI C001 0040 3429 TUBORY = C 001 
TUBINPA C 001 0002 3423 TUBPATRI C 001 
TUBING] C 001 0040 3440 TUBPCFGa C 001 

13] TUBING2 C001 0020 3441 TUBPCRLN C 001 
TUBIOERR C 001 0040 3481 TUBPELEN C 001 
TUBIPS C 001 0020 3430 TUBPERES C 001 

14 TuBIQ® C001 0010 3442 14] TUBPEXTa C 001 
TUBJCBA C 001 0032 3390 3391 3839 3984 TUBPFMLN C 001 
TUBPFAND C 601 

1 5] TUBPGTUB C 001 
TUBPLEN C 001 

TUBPLPT C 001 

16{TUBLEN C001 0060 3599 16] TUBPrOPP C 001 
TUBLIOER C 001 0004 3435 TUBPRESV C 001 
TUBLIOFR C001 0002 3401 TBPRT CC GOI 
T7|TUBLIOIP ~ 901 0002 3486 17] TuBPsuBC C 001 
TUBLIUS . 001 0002 3445 TUBQHOR C001 
TUBLOP C001 0020 3452 TUBRARER C O01 
JS{TUBLTOFF C 001 0040 3492 4 TUBRCAK C001 
TUBMBOCF C001 0010 3464 TUBRONOL C 901 
TURD C001 0020 3416 FRR C 901 
TUNIN C001 0030 3395 3938 19) TUBROTIP C O01 


02) SYMBOL = T LEN VALUE 


0010 
0010 
0070 
0008 
0020 
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01 


CROSS-REFERENCE 


02) SYMBOL T LEN VALUE OEFN 


REFERENCES 


O2|SYMBOL =T LEN VALUE DEFN 


TUBREL C001 0004 3455 

03} TUBREXEC C 001 0080 3196 
TUBRFCSS C001 004C 3517 
TUBRFDSP C 001 004) 3518 

O4/TUBRFN C001 004B 3516 
TUBRFSS C001 004A 3515 
TUBRIISU C 001 0004 

05] TUBRINCM C 001 
TUBRJFOV C 001 


BMOATA C 001 0010 3417 978 
TUBMDDTA C 001 0010 3494 
TUBMOME C001 0070 3418 
JMENUA C001 0008 3421 
4 TUBMENU2 C 001 0020 3507 
TUBMHELP C001 0004 3595 
BMHOLD C 001 0010 3565 
TUBMIC C001 OO1A 3356 ©3358 
TUBMINIT C001 0030 3419 


03 


TUBMIQOS C 001 0020 3482 TUBRLON C 001 3551 
06] TUBMKANJ C 001 0020 3579 06] TUBRLUP C 001 3550 
TUBMLOCL C 001 0040 3199 TUBRPOLL C 001 3197 
TUBRSF C001 3454 


TUBMOFF C001 0020 3564 
TUBMROTA C 001 0008 3465 
TUBMRTSC C001 0010 3508 
TUBMSGA C001 0001 3424 
S| TUBMSGCT C 001 OO3F 3472 © 3475 
TUBMSGID C 001 0055 3572 3573 
TUBMSGRT C 001 0080 3473 
TUBMSGR2 C 001 0040 3474 
TUBMSTDY C001 0080 3413 
TUBMSUB C001 00CO 3200 
TUBMWSTN C 001 0040 3415 3941 3978 
TUBNOSUB C 001 0002 3570 
TUBONL §=C 001 0008 3183 
11) TUBOPSTS C 001 0030 3389 3390 
TUBOPTS C001 001B 3358 3368 


0002 

0008 

0020 

0040 

0081 

0008 

07} TUBRST1 C 001 0008 

TUBRST2 C001 0004 

TUBRSVD C001 005F 
OS} TUBRSW C001 0010 3453 
TUBSENSE C001 OOF 3324 

000A 

0008 

000C 

0000 

O00E 

O00F 

0010 

0001 

0008 

0004 


07 


TUBSENSO C 001 
O9] TUBSENS1 C 001 
TUBSENS2 C 001 
TUBSENS3 C 001 
10] TUBSENS4 C 001 
TUBSENSS C 001 
TUBSGN = C 001 
11) TUBSIARF C 001 
TUBSIIS C 001 
TUBSIMI =C 001 
12] TUBSIOCT C 001 0010 3368 


TUBPCFGa C 001 0022 3372 ©3373 
TUBPCRLN C 001 002D 3611 3612 
TUBPELEN C 001 0040 3642 

TUBPERES C 001 O03F 3641 © 3642 
TUBPEXTa C 001 0026 3607 3608 
TUBPFMLN C001 002C 3610 3611 
TUBPFANO C 001 0028 3609 3610 
} TUBPGTUB C 001 0033 3627 3629 
TUBPLEN C001 0030 3622 3626 
TUBPLPI C001 0035 3638 3641 
TUBPIXPP C 001 OOZE 3612 3613 


B 


14 


1 


1 


1 


TUBQHOR C001 0015 3341 3343 
TUBRAMER C 001 0001 3597 
Oy TUBRCBK C001 0004 3554 


TUBRDOMOD C 001 0001 3571 


JO) TUBROYIP C 001 0001 3487 


01 
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01 
CROSS~REFERENCE 
SYMBOL T LEN VALUE DEFN = REFERENCES 


TUBREL C001 0004 3455 
TUBREXEC C 001 0080 3196 
TUBRFCSS C 001 O04C 3517 3518 
TUBRFDSP C 001 004) 3518 © 3520 
TUBRFN «C001 0048 3516 ©3517 
TUBRFSS C 001 OO4A 3515 3516 


0 02) SYMBOL =T LEN VALUE 
TUBOUNGJ C 001 0040 
O3]TUBIOPT C 001 0002 
TUBZIG_ L001 0008 
B2RF C001 0010 
OM TUB2UG C001 0018 
Tuss6o-C 001 +0000 


0 


TUBRITSU C 001 0004 3184 TWAPCEND C 001 0014 
05] THAPCNSL C 001 O00F 

Twaecorm C001 002E 

CQ C 001 00 
06] TUAFCURT C 001 O00E 
TUAPERPS C 001 0033 | 
TWINQ C001 (0017 © 
D7] TUAALCL C001 0009 | 
TUMAGIO C 001 0022__ 

TUAMLOGE C 001 0030 


ELELEL 
gggleee 
18 8 918 88 

aE E35 


i 
7 


33 
344 

3599 
08 353 OOF | 
334335 one 
TUBSENSO C 001 ODOR 3218 © 3233 p08 
OO TUBSENS! C 001 0008 3233 265 noo 
TUBSENS2 C 001 ODOC 3245 ©3263 oo37_ | 
cFNS3 C 6 yn 0006 
O07: 
0008 
oon? | 
9003 | 
005 3 
0099 | 
OOF 
on 
oa 3 
i 
we 3 
ome 3 
moms 
ow 3 
mor 7 
mor 3 
a.m. 
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CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES 


TUBOUNGJ C 001 0040 3590 
TUBOPT C001 0002 3596 
TUB2IG_ e001 0008 3593 


02) O2/SYMBOL = T LEN VALUE 


TWAXNEXT C 001 0004 


03 03) TWAXSS §C 001 0006 
TWO 


TWAACEND C 001 0014 3692 
TWAPCNSL C 001 OOOF 3697 
TwAscorm C001 O02E 3677 
TWAPCSMQ C001 003C 3702 
TWASCURT C 001 O00E 3695 
TWAPERPS C001 0033 3700 


TWAALOGC C 001 0030 3679 
jO] TWAMLOGR C 001 O02F 3678 
TWAMDSA C001 0008 3670 
TWAIN] C 001 0008 3693 
TWAMNUSE C 001 0000 3689 
TWROOCLC C 001 0037 3682 


OES 

TUALOMD C001 0080 0833 0EO 
TUPUT §=6«C 001 0001 3649 020 
17) Tune «C001 COW 3654 T7)MONGRPG «C001 0071 
TUSYS C001 0002 3651 UONGRPT C001 0025 
TUATUA «6«C O01 9000 3653 Pa C 001 0008 
a TUREUA C001 0004 3657 quporc §=6C 001 +0003 
GATE C O01 0000 3655 us Con oo 
TURRLEN COO] 0008 3712 ut Com 0005 
Wher Col oon? 3707 |= 5709 yon «=F 81 O08 
TURP, C O01 GOC3 3708 DPE Col we 
ee = 6C Ol OOO? Sl |= (72 | C OO1 Guz? 


12/08/81 02:16 
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01 01 
CROSS-REFERENCE 

Q2}SYMBOL T LEN VALUE DEFN REFERENCES 02 SYMBOL 
TWAXNEXT C 001 0004 3709 «3710 WOPEX 
O3)TWAXSS C001 0006 3710 3711 103] WOPNW 
Two C001 0002 0111 WOPOGE 
WOPRT 
04 VARY 0.4) WOPRUF 
WOPTG 
WPTH 
O5)WOAC «= C.-001 «0008 «(0337 05] WOPTI 
C 001 0009 0338 WOPUT 
WAEOS C001 OOF8 0378 WORACC 
O6|WOAEOS C001 OOFO 0377 06] WORACR 
WAID C001 000C 0387 0388 WORAFN 
WASFL CGO OOFF 0379 WORAFS 
O7|WOCANL §=C 001 0010 0372 107] WORAFW 
WOCANLG C001 0011 0374 WORAQO 
WCANLT C001 0015 0373 WORCDG 
OS{WOCLR C001 0080 0355 O08) WORCDI 
WOCPHELP C 001 OOFF 0390 WORCL 
WEFFL C001 0005 0383 0384 WORDMD 
OOWEGTA C001 000D 0342 09] WORDN 
WELNE C001 0011 0409 0410 WORDS 
WOERS C001 0040 0352 0353 0354 WORDSN 
IO\WETE = 001 0041 0353 10] WORECA 
WETI C001 0045 0354 WOREL 
WEVE C001 0088 0357 UWORES 
T1/WEVE = C001 -:0081 0359 11] Wor 
WEVI C001 0085 0358 WORGRF 
WEW ~=«C (001 0080 0356 MDRGU 
2MDFAIL C001 0032 0368 2|WORIRJ 
WMH C001 0012 0362 MORKBO 
WOFTHG C001 0013 0364 WORNAV 
HUDEMHE = 001 0017 0363 } WOROFL 
WOFMHO C001 0040 0315 WOROK 
WRMIN C O01 0016 0412 0413 WOROL 
4 WGET C001 0001 0330 0332-0334 0346 0350 0353 14] VORPAL 
WOGTA C001 O00C 0341 WDRPE 
Wine C O01 0014 O41] 0412 | WORPEP 
SUDINY §=6C O01 0005 0334 ©0336-0348 0351 0354 5] UORPUN 
WIOPC C001 0000 0388 0392 O81 MORREL 
WUEN C001 0017 0413 0415 WORSCI 
JO}WONEDJ «C001 O0ES 0376 6] MORSE 


i 
a 
8 
: 


Lit 
agg 
§88 
gs 

LEE 


iat Cool ons 3382 aes oe 
190 CO] Cow OF14 ol psace 
COO] OD O30 eS 
1 aS 


T LEN VALUE DEFN 


C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 
C 001 


QO1A 0365 
0006 0335 
0045 0301 
0008 0319 
0001 0325 
0003 0332 
0020 0317 
0007 0336 
0002 0331 
0001 0287 


9024 0294 


0308 


REFERENCE: 


0347 


0332 0335 


0385 


0350 0351 


0311 


09/11/81 12/08/81 02:16 01 
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CROSS-REFERENCE 


(O2| SYMBOL T LEN VALUE DEFN REFERENCES 02/SYMBOL = T LEN VALUE 
WOPEX C001 OO1A 0365 WOSPE ~~ C:«001 0013 
03) WOPNW =C 001 «0006 0335 =: 0347 Q3/W0SPI - C 001 0017 
WOPOGE C001 0045 0301 WOSPN C001 0016 
WRT C001 0008 0319 WOSRCM ~C 001 0009 
OA WPRUF C001 0001 0325 OAIWOSRCN C001 0008 
WOPTG C001 0003 0332 WOSRCT C001 0000 
WOPTH C001 0020 0317 WOSRCW C001 000A 
O5|WOPTE C001 0007 0336 Q5]WOSROl C001 0001 
WPUT _C 001 0002 0331 0332 0335 0336 0345 0346 0348 WOSRO2 C001 0002 
WORACC ~C 001 0001 0287 WSRO3 C001 +0003 
O6|WORACR C001 0011 0291 O6j/WOSTI C001 0010 
WORAFN C001 0038 0298 WSTMR C001 0008 
WORAFS C001 0032 0296 WSTP = C 001 (0012 
O7|WORAFW =C 001 0018 0293 O7|MOSYS C001 0080 
WTUB C001 0009 
WOUNF~C 001-0010 
103 OS|WOVSLN C001 0012 
WOWTER C001 0006 
WORDMD C001 0004 0323 W960 C:001 «(0008 
OO] WORDN C001 0040 0404 OO] WRT C 001 0029 
WORDS C001 OODE 0343 WSQSFAIL C 001 0010 
WORDSN =C 001 0008 0320 XAREAREF C 001 0020 
WORECA C001 0007 0384 0385 TO}XEAOFF C001 0040 
WOREL C001 000A 0340 XEBOFF C 001 0020 
WORES = C 001-0020 0349 ©0350-0351 XEXAMID 001 0080 
WRGE C001 005) 0305 1IJXFERCTL C001 0010 
WORGRF C001 0050 0304 XFEREAON C 001 0004 
WRGU C001 (0052 +0306 XFEREBON C 001 0002 
PWRIRJ C001 0034 0297 2IXFERIAON C 001 0008 
WORKBD C001 0014 0292 XFERMPON C 001 0001 
WRN C001 «9024 0294 XFLENBYT C 001 0110 
HWDROFL C001 0040 0299 4 XFLENURD C 001 0083 
ROK C001 0000 0236 NTAREAE C 001 000F 
WDROL = «C:« 001 ~0020 6316 XNTARERS C 00i 0008 
GVORPAL C001 0043 0303 145NTPRIV C 001 0020 
WRPE C001 0080 0308 1 C 001 0001 
WRPEP «C001 0084 0309 
DRPUN «C001 0046 0302 y 
WORREL C001 0028 4295 
WRSCS «~C 001 0056 0307 
GIUDRSPF C001 0044 0300 162 C001 9002 
MORSTD C001 0006 a289 
WORSIP = 001 002 G733 
Dns C O01 cou? 0324 1 
RIC §=6C OO] 0001 a284 = 0311 
IG «6C OO) S071 Ois0 
BURT §=6C OO 0025 O35) x00 A002 OBAS 
wer O01 0080 On03 'xOD0 = 003 ‘OBAT 
ie a ae or 001 =A 03 OBAD 
FumSAOQ «C OO] C099 0339 1901 A002 oBAD 
C O01 wos c3Z7 A001 OBR 
(1X A002 OBAA 


a: 
tft i wet 


603 
PME WO] WOOVIL/E] 12/0B/81 12-16 


wi) tel de a wl ww ool oe Om tl Ww 
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01 


CROSS-REFERENCE 


01 

5 
WOSPG = C001 0013 0346 

03]/WOSPI - C001 0017 0348 
WOSPN C001 0016 0347 

WSRCM C001 0009 0398 

A\WOSRCN C001 0008 0397 

WOSRCT C001 0000 0392 

WOSRCW =C 001 G00A 0399 

WOSROl C001 0001 0394 

WOSRO2 C001 0002 0395 


WOSRO3 C001 0003 0396 


O2|syvmBOL T LEN VALUE DEFN — REFEI 


x8 A001 OBA4 4603 4191 
03} x800 A 002 OBAS 4605 
ZERO C 001 0000 0109 
ZONEBITS C 001 OOFO 0127 
O04 
TOTAL STATEMENTS FLAGGED IN THIS A: 


5] STATEMENTS FLAGGED AS WARNINGS 


O6]WOSTI C001 0010 0344 0345 0346 0347 0348 06) 
C001 0012 0345 
O7]WOSYS C001 0080 0313 07 
WOTUB C001 0009 0385 0386 
WOUNF = =C 001 0010 0318 
HWOVSLN C001 0012 0410 0411 O¢ 
WOWTER C001 0006 0321 
W960 = C 001 «(0008 0386 «= (0387 
WT C 001 0029 0484 OY 
WSQSFAIL C 001 0010 0688 
XAREAREF C 001 0020 0788 
XEADFF C001 0040 3725 10 
3724 
LIHXFERCTL C001 0010 3727 aI 
XFEREBON C 001 0002 3733 
XFERIAON C 001 0008 3731 | 
XFERMPON C 001 0001 3734 
XFLENBYT C 001 0110 3808 
MXFLENURD C001 0088 3909 
NTARERE C001 O00F 3730 
MNTAREAS C 00i 0008 3729 
QXNTPRIV € 001 0020 3728 14 
MR C 001 0001 0096 3841 3843 3860% 3862 3864 3366 3874 3375 3877 3927 3944 3949 
3960 3972 3974 3986* 4012" 4021 4076" 410% 4111" 4147 4147 4165 
QI 44 ZH Wi ZT 42D 2 AD 4305" 4307 4309-4311 5 
Bl4 BB 4338 43468 43438 4350 4952 4368" 4370 4375 4375* 4377 
BI9 GSEs" 4386 4390 4017* 4420 4486" 
RRZ C001 0002 0097 3837* 3339 3839* 384] 3879" 3929* 3933 3933" 9935 3933 3Oq1 Ioee 16 
3949 3954 3958" 3960 3962 3964 3964 3966 3968 3970 3970* 3972 
3974" WIG 3973 3984 F9SEX 3989 A0GI* 4063 866 9069 4083 4097 
QF A 4 4152 4165" 4167 4169 4169 4175 61% 4138 4191 1 
26 4206 4208 10 12 Qi4 Ib ZIG G18 2 GD «774 
238 273 4375" GIS 4333" 4340 4429 4430 
bd A0G2 CONS 4611 8 ll 4115 G33 1g 
x000 A0G3 OBA? 4607 
719 


Bas 
a8 
922 
gas 
$ 
§ 
9 
3 


8 
> 
8 
3 
s 


} YO9/11/81 12/08/81 02:16 0 PAGE 139 09/11/81 12/08/81 02:16 01 CHANGE 
1 


CROSS-REFERENCE 
MODULE NAME FLAG Rl 


02|SYMBOL T LEN VALUE DEFN — REFERENCES 02 

#SCPR aes 
x8 A001 OBA4 4603 4191 an22 

03/X800 =A 002 OBAS 4605 03 aal45 
ZERO _ C001 0000 0109 3x 
ZONEBITS C OO1 OOFO O127 x 
O4 04 4 
TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 4 
0184 
5] STATEMENTS FLAGGED AS WARNINGS = ) 05) 9a224 f 
90255 7 
9344 é 
06 06) aay 17 
1 
17 

07 07 aa478 


8 


SZ 


ENO OF THE CHANGE ACTIVI 


~ CHANGE 


— 
S 


90G13_$317310 SS1 SU 05 


11])@a022. = P1034 «SS CP 03 


_ 
rm 


aai45 = P10402 SS 04 
aal84 = PI0419_- SSP 04 


13)a0224 = P1441 SS AD 04 


_ 


aa255 = PI0702 «CSP 07 


hn 


ma344 P0551 ‘CSP 05 


15,aa419 = P10802 


g 


P10807 08 


END OF CHANGE FLAG REASONS 
1 


bed 


G 


yy 


7 
a 
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AGE 139 VO9/11/81 12/08/81 02:16 01 CHANGE ACTIVITY SUMMARY - VO7/23/79 


MODULE NAME FLAG REFERENCE 


#SCPR 90613 1256 

0022 386 387 

145 58 58 2725 3957 3961 3963 3965 3967 
3969 3971 3973 3975 3977 3979 3981 3983 
985 3987 4361 4363 4365 4367 437 4372 
4374 4382 4384 4387 4389 4392 4406 4411 
4413 4437 4444 4448 4453 4457 4469 

20184 7107 


1245 1246 1247 
1253 1254 1255 


“CHANGE FLAG REASONS - VO7/23/79 - AS OF 12/08/81 02:17 


$317310 SS1 SU 05 07/09/80 JUB 47N 
P0304 SS CP 03 07/18/77 TUB 47E 
P10402 SS __ 04 03/30/78 CKS 44A 


PIO419 SSP 04 07/06/78 RIR 472 


Pio702 CSP = 07:01/25/79 TJL 490 


PIO551_ CSP 05 06/15/79 SDD 47V 


PRE WS WOT 28/1 6 


